userdel.asp

来自「ASP+SQL2000+」· ASP 代码 · 共 24 行

<!--#include file="conn.asp"--><!--#include file="chkuser.asp" -->

<%
IF not(request.cookies("KEY")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") THEN
response.redirect "index_face.asp"
response.end
END IF

dim rs,tsql
dim rst
dim id
id=request("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where id="&id
rs.open sql,conn,3,3
username=rs("username")
rs.close
set rs=nothing
set rst=server.CreateObject("ADODB.RecordSet")
if request("name")="del" then
rst.open "delete from admin where id="+request("id"),conn,1
end if

response.redirect "usermanage.asp"%>