del.asp

来自「一个简单的留言板！可以很好的学习学习」· ASP 代码 · 共 21 行

<!--#include file="conn.asp" -->
<%page=request("page")

'###检查cookies和数据库,如果没记录/或数据库不能访问侧自动退出
set rsadm=server.createobject("adodb.recordset")
sql="select * from admin"
rsadm.open sql,conn,1,1
    if session("user")<>rsadm("user") or session("pwd")<>rsadm("pwd") then
    response.write("<script>alert('请登陆！');history.go(-1)</script>")
    else
   delesql="DELETE FROM Book WHERE id="&Trim(Request("id"))
   conn.Execute delesql
   set conn=nothing
   response.redirect "index.asp"
rsadm.close
set rsadm=nothing
End If 

'###检查结束###%>