delete.asp

来自「个人主页全站v2.0 个人主页全站v2.0 个人主页全站v2.0」· ASP 代码 · 共 36 行

<!--#include file="config.asp"-->
<%
on error resume next

set rs = server.createobject("adodb.recordset")
sql = "select * from config"
rs.open sql,conn,1,1

if date <> idate then
rs("today") = 0
end if
rs("date") = date
rs.update

rs.close

if request.cookies("iadmin") <> "admin" then
response.redirect "manage.asp"
response.end
else

iid = request("id")
sql = "delete * from content where id = " & iid
rs.open sql,conn,3,1
rs.close

sql = "delete * from reply where topic = " & iid
rs.open sql,conn,3,1
rs.close
response.redirect "index.asp"
response.end
end if
set rs = nothing
conn.close
set conn = nothing
%>