del.asp

来自「一个bbs的代码」· ASP 代码 · 共 20 行

<%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<%
     name=request("name")
     pass=request("pass")

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select top 1 id,name,pass FROM admin Order By id desc"
rs.open sql,conn,1,3
     
        if pass=rs("pass") and name=rs("name") then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Delete * from book where reid="&request("id")
rs.open sql,conn,1,2
conn.close
response.redirect "default.asp"
else
     response.redirect "erro.asp?erro=1"
     end if
%>