<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'** 版权所有：烈火工作室 演示网站http://www.strongfire.cn **
'** QQ:839225572 邮箱：strongfire2008@163.com **
'** 非正版用户不得擅自非法修改用于商业用途！查出必究。 **
'****************************************************************
%>
修改信息
<%
ClassName=Request("ClassName")
Picture = Request.Form("picture")
se_ClassName=Request("se_ClassName")
keywords = Request.Form("keywords")
title=request("txttitle")
page=Request("page")
ID=Request("id")
addtime=Request("addtime")
selecttype=request("selecttype")
searchkeys=request("searchkeys")
'得到大类id
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from class where ClassName='"& ClassName&"'"
rs.open sql,conn,1,1
jsid=rs("id")
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
if SavePathFileName<>"" then
rs("SavePathFileName") = SavePathFileName
end if
rs("keywords") = keywords
if keywords="" then
keywords=title&"_"&website
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
if selecttype=2 then
response.write""
response.end
else
Response.Write ""
end if
%>