gbook_del.asp

基于ASP开发的聊天室源码

<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
If not IsArray(Session("info")) Then Response.Redirect "err.asp?kind=20"
info = Session("info")
gradeinfo = Application("gradeinfo")
id = Request("id")
If IsNumeric(id) Then
 id = Int(id)
Else
 Response.Redirect "err.asp?kind=124"
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("zzbird_conn")
Set Rs = Server.CreateObject("ADODB.RecordSet")
sql = "select id,who from gbook where id=" & id
Rs.Open sql,Conn,3,3
If Rs.EOF and Rs.BOF Then
 Rs.Close
 Set Rs = Nothing
 Conn.Close
 Set Conn = Nothing
 Response.Redirect "err.asp?kind=126"
End If
If Rs("who") <> info(0) and gradeinfo(info(1),22) <> True Then
 Rs.Close
 Set Rs = Nothing
 Conn.Close
 Set Conn = Nothing
 Response.Redirect "err.asp?kind=125"
End If
Rs.Close
Set Rs = Nothing
sql = "delete from gbook where id=" & id
Conn.Execute(sql)
Conn.Close
Set Conn = Nothing
Response.Write "<Script Language=JavaScript>history.back(-1)</Script>"
%>