userdelid.asp

一个非常优秀的自动建站程序

<%
ID = Request("ID")
if (ID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<%
sql="Select UserID from [Agent_User] where ID=" & ID
set rs= Conn.Execute(sql)
if rs("UserID")=AdminName then Response.Redirect ("error.asp?id=003")
set rs= NoThing
sql="Select UserID from [Host_Ok] where UserID=" & ID
set rs= Conn.Execute(sql)
if not (rs.bof and rs.eof) then Response.Redirect ("error.asp?id=021")
set rs= NoThing
sql="DELETE * from [Agent_User] where ID=" & ID
set rs= Conn.Execute(sql)
set rs= NoThing
response.redirect "UserList.asp"
%>