libdel.asp

来自「基于ASP开发的聊天室源码」· ASP 代码 · 共 15 行

<%Response.Expires=0%>
<%
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),7)<>true then Response.Redirect "err.asp?kind=31"
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
sql="delete * from lib where id="&Request("id")
conn.Execute(sql)
Conn.Close
Set Conn=Nothing
Response.Write "<script language='javascript'>location.href='javascript:history.back(1)';</script>"
%>