<%
if request("action")="del" then
delsql="delete * from [News] where id="&request("id")
conn.execute(delsql)
end if
%>
<%
if request("action")="edit" then
whichtype=trim(request("whichtype"))
Propics=trim(request("Propics"))
Propics1=trim(request("Propics1"))
Propics2=trim(request("Propics2"))
Propics3=trim(request("Propics3"))
Propics4=trim(request("Propics4"))
shuoming1=trim(request("shuoming1"))
shuoming2=trim(request("shuoming2"))
shuoming3=trim(request("shuoming3"))
shuoming4=trim(request("shuoming4"))
shuoming5=trim(request("shuoming5"))
Title=trim(request("Title"))
Content=CheckStr(trim(request("Content")))
author=trim(request.Cookies("username"))
insql="update [news] set whichtype='"&whichtype&"',Propics='"&Propics&"',Propics1='"&Propics1&"',Propics2='"&Propics2&"',Propics3='"&Propics3&"',Propics4='"&Propics4&"',shuoming1='"&shuoming1&"',shuoming2='"&shuoming2&"',shuoming3='"&shuoming3&"',shuoming4='"&shuoming4&"',shuoming5='"&shuoming5&"',Title='"&Title&"',Content='"&Content&"' where id="&request("id")
conn.execute(insql)
'response.Redirect("myblog.asp?id="&author&"")
response.Write("")
'response.End()
end if
%>
修改日志
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where id="&request("id")&"",conn,1,1
if rs.bof and rs.eof then
response.Write("")
else
%>
<%
end if
rs.close
set rs=nothing
%>
