delete.asp

结合了某度和AH的个人主页 功能比较完整

<!--#include file="conn.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 session("admin") <> "admin" then
response.redirect "../admin/index.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
%>