admin_userdel.asp

大榕树网络文章管理系统

<%
Option Explicit
Response.buffer=true
const purviewlevel=2
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<%
dim userid,userdel,sql,sql1,uid
userid=trim(request.querystring("userid"))
userdel=trim(request("userdel"))
uid=trim(request.form("uid"))
if userdel="del" then
if userid<>"" then
sql="delete * from reguser where userid="&userid&""
conn.execute sql
sql1="delete * from userlogin where userid="&userid&""
conn.execute sql1
else
if uid<>"" then
sql="delete * from reguser where userid in("&uid&")"
conn.execute sql
sql1="delete * from userlogin where userid in("&uid&")"
conn.execute sql1
end if
end if
end if
call closeconn()
response.redirect("admin_UserMan.asp")
%>