userdel.asp

来自「汽车违法查询系统V0.1版本 1.直接解压上传空间就可使用！ 管理员adm」· ASP 代码 · 共 30 行

<%if Session.Contents("master")="master" then%>
<!--#include file="conn.asp"-->
<%
dim id
id=Request("id")
If id="" Then
response.write "<script>alert('非法的请求');history.back()</script>"
Else
%>
<%

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM 管理员 where id="+id
rs.Open sql,conn,3,2
%>
<%
if rs.bof and rs.eof then
response.write "<script>alert('错误的请求');history.back()</script>"
Else
rs.Delete
rs.Close
set rs=nothing
response.redirect "userlist.asp"
end if
%>
<%end if%>
<%
Else
response.redirect "login.asp"
end if%>