<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'**   版权所有：烈火工作室  演示网站http://www.strongfire.cn   **
'**   QQ:839225572   邮箱：strongfire2008@163.com              **
'**   非正版用户不得擅自非法修改用于商业用途！查出必究。       **
'****************************************************************
%>
<!--#include file="islogin.asp"-->
<!--#include file="admin_conn.asp"-->
<!--#include file = "config.asp"-->
<!--#include file = "const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改信息</title>
</head>
<%
Classname=Request("Classname")
Picture = Request.Form("picture")
title=request("txttitle")
page=Request("page")
ID=Request("id")
addtime=Request("addtime")
keywords = Request.Form("keywords")

'得类别id
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from class where Classname='"& Classname &"'"
rs.open sql,conn,1,1
ClassID=rs("ID")
rs.close
set rs=nothing


' 开始：eWebEditor编辑区取值-----------------
Content = ""
For i = 1 To Request.Form("d_content").Count
Content = Content & Request.Form("d_content")(i)
Next
Dim SavePathFileName
SavePathFileName = GetSafeStr(Request.Form("d_savepathfilename"))
'修改信息
Set rs=CreateObject("Adodb.recordset")
sql="select * from article where id="&id
rs.open sql,conn,1,3
rs("title")=title
rs("Classname")=Classname
rs("ClassID")=ClassID
if Content<>"" then
	rs("content")=Content
end if
rs("keywords") = keywords
if keywords="" then
	keywords=title&"_"&website
end if
if SavePathFileName<>"" then
	rs("SavePathFileName") = SavePathFileName
end if

if picture="" then
	rs("Picture")=null
else
	rs("Picture") = Picture
end if

rs("addtime")=cdate(addtime)
rs.update
rs.close
set rs = nothing



conn.close
set conn=nothing
Response.Write "<div align=center><br><br>修改成功！<p>是否继续修改此小类信息 <a href='ArticleModifylist.asp?Classname="&Classname&"&page="&page&"'>是</a> / <a href='ArticleModSelClass.asp'>否</a></div>"
%>
