📄 admin_user_del.asp

📁 商业网站/图片管理系统/投票系统/新闻管理系统/
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<%
if request.cookies("admin_OK")="" then
	response.redirect("admin_login.html")
end if
%>
<%
dim db
db=0
%>
<!--用户删除页面-->
<!--#include file="../config/db.asp"-->
<!--#include file="../config/function.inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
dim myErrors,sql,rst,sql1
set rst=server.CreateObject("adodb.recordset")

'--------参数合法性判断--------------
if not isnumeric(request.querystring("id")) or isempty(request.querystring("id")) or isempty(request.querystring("force"))  then'参数不合法
   msgboxU("非法参数")
else'参数合法
'--------判断是否为强制删除-------------
	if request.QueryString("force")="yes" then'强制删除
		'--------查询关联的shop_message表是否有记录--------
		sql="select count(*) as num from shop_message,shop_user where shop_message.m_uid=shop_user.u_id and shop_user.u_id="&request.QueryString("id")
		rst.open sql,conn,1,1
		if rst("num")>0 then'有记录
			sql1="delete from shop_message where m_uid="&request.querystring("id")
	   		conn.execute sql1
			sql1="delete from shop_user where u_id="&request.querystring("id")
			conn.execute sql1
	   		set myErrors=conn.errors
	   		if myErrors.count=0 then
		  		msgboxU("删除成功！")
				'-------返回用户管理页----------
				response.Redirect("admin_user.asp")
	   		else
		  		msgboxU("删除失败！原因:"&myErrors.item(0).description)
	   		end if
		else'无记录
			sql1="delete from shop_user where u_id="&request.querystring("id")
	   		conn.execute sql1
	   		set myErrors=conn.errors
	   		if myErrors.count=0 then
		  		msgboxU("删除成功！")
				'-------返回用户管理页----------
				response.Redirect("admin_user.asp")
	   		else
		  		msgboxU("删除失败！原因:"&myErrors.item(0).description)
	   		end if 
		end if  
		rst.close
	elseif request.QueryString("force")="no" then'非强制删除
		'--------查询关联的shop_message表是否有记录--------
		sql="select count(*) as num from shop_message,shop_user where shop_message.m_uid=shop_user.u_id and shop_user.u_id="&request.QueryString("id")
		rst.open sql,conn,1,1
		if rst("num")>0 then'有记录，不能直接删除此条用户
			msgboxU "该用户有留言您不能删除该用户！"
		else'没有记录，可以直接删除此条用户
				sql1="delete from shop_user where u_id="&request.querystring("id")
				conn.execute sql1
				set myErrors=conn.errors
				if myErrors.count=0 then
				  msgboxU("删除成功！")
				  '-------返回用户管理页----------
					response.Redirect("admin_user.asp")
				else
				  msgboxU("删除失败！原因:"&myErrors.item(0).description)
				end if
		end if
		rst.close
	end if 
end if
set rst=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -