📄 delmemberschk.asp

📁 电子商务网络购物系统

💻 ASP

字号:

<!--#include file="conn.asp" -->
<%
Session.Timeout =  1000

Dim lngDelAuthorID
Dim intNoOfDays
Dim lngNumberOfMembers
Dim rsRD

lngNumberOfMembers = 0
intNoOfDays = CInt(Request.Form("days"))
strSQL = "SELECT timesuser.userid FROM timesuser "
strSQL = strSQL & "WHERE timesuser.joindtm < " & strDatabaseDateFunction & " - " & intNoOfDays  & " AND timesuser.postnum=0;"
rsConn.CursorType = 2
rsConn.LockType = 3
rsConn.Open strSQL, adoCon
Set rsRD = Server.CreateObject("ADODB.Recordset")
Do While NOT rsConn.EOF
	lngDelAuthorID = CLng(rsConn("userid"))
	strSQL = "SELECT TOP 1 timespost.postid FROM timespost WHERE timespost.userid=" & lngDelAuthorID & ";"
	rsRD.Open strSQL, adoCon
	If rsRD.EOF Then
		strSQL = "DELETE FROM timesfriend WHERE (userid ="  & lngDelAuthorID & ") OR (friendid ="  & lngDelAuthorID & ")"
		adoCon.Execute(strSQL)	
		strSQL = "DELETE FROM timesmess WHERE (userid ="  & lngDelAuthorID & ")"
		adoCon.Execute(strSQL)	
		strSQL = "DELETE FROM timesmess WHERE (bbsid ="  & lngDelAuthorID & ")"
		adoCon.Execute(strSQL)
		strSQL = "UPDATE timesmess SET bbsid=2 WHERE (bbsid ="  & lngDelAuthorID & ")"
		adoCon.Execute(strSQL)
		strSQL = "UPDATE timespost SET userid=2 WHERE (userid ="  & lngDelAuthorID & ")"
		adoCon.Execute(strSQL)
		strSQL = "DELETE FROM timesnotify WHERE (userid ="  & lngDelAuthorID & ")"
		adoCon.Execute(strSQL)
		rsConn.Delete
		lngNumberOfMembers = lngNumberOfMembers + 1
	End If
	rsRD.Close
	rsConn.MoveNext
Loop
Set rsRD = Nothing
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<html>
<head>
<title>批量删除会员</title>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"> 
  <p class="text">批量删除会员</p>
  <p class="text"> <a href="menu.asp" target="_self">返回到管理主菜单</a><br />
    <br>
    <br>
    <br>
    <br>
    <br />
    <% = lngNumberOfMembers %>
    会员已经被删除 </p>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -