delete.asp

来自「ASP源文件」· ASP 代码 · 共 60 行

<!--#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
set rs = nothing
conn.close
set conn = nothing
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


sql = "select * from config"
rs.open sql,conn,3,2

if rs("today") > 0 then
rs("today") = rs("today") - 1
else rs("today") = 0
end if

rs("date") = date
rs.update
rs.close
set rs = nothing
conn.close
set conn = nothing

response.redirect "index.asp"
response.end

end if



set rs = nothing
conn.close
set conn = nothing
%>