admin_manageuser.asp

电子商城代码

<!--#include file="conn.asp"-->
<!--#include file="../include/md5.asp"-->
<!--#include file="../webconfig.asp"-->
<%

admintop()
Select Case Request("action")
	Case "del" : del()
	Case "dellostuser" : dellostuser()
	Case "editpass" : editpass()
	Case "edituser" : edituser()
	Case "viewuser" : viewuser()
	Case "search" : search()
	Case "shenqingok" : shenqingok()
	Case "mingxi" : mingxi()
	Case "mingxi_del" : mingxi_del()
	Case Else
		list()
	End Select
Sub del
 
admin_flag=",13,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
user_id=request("user_id")
conn.execute "delete from [56770_user] where user_id in ('" & request("user_id")&"')"
conn.execute "delete from [56770_message] where to_user in ('" & request("user_id")&"')"
conn.execute "delete from [56770_action] where user_id in ('" & request("user_id")&"')"
conn.execute "delete from [56770_auct] where user_id in ('" & request("user_id")&"')"
conn.execute "delete from [56770_basket] where user_id in ('" & request("user_id")&"')"
conn.execute "delete from [56770_orders] where user_id in ('" & request("user_id")&"')"
conn.execute "delete from [56770_dvote] where user_id in ('" & request("user_id")&"')"
conn.execute "delete from [56770_money_log] where m_user_id in ('" & request("user_id")&"')"
url="admin_manageuser.asp?userid="&request("userid")&"&usergrade="&request("usergrade")&"&page=" & request("page")
response.redirect url
end if
end  sub

Sub dellostuser
On Error Resume next
admin_flag=",18,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
set rs=conn.execute("select user_id from [56770_user] where logins>=1 and regdate<"&sqlnowstring&"-60 and lastlogintime<"&sqlnowstring&"-60")
if rs.eof then 
response.write "<script language='javascript'>alert('娌℃湁鍙