delmember.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 41 行

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%

Response.Buffer = True 
Set rsConn = Nothing
If bannedIP() Then
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp?M=IP")
End If

Dim lngMemberID	
Dim strReturn	
strReturn = "UPD"
lngMemberID = CLng(Request.QueryString("MID"))
If blnAdmin = True AND isNumeric(lngMemberID) Then
	If lngMemberID > 2 Then
		strSQL = "DELETE FROM timesfriend WHERE (userid ="  & lngMemberID & ") OR (friendid ="  & lngMemberID & ")"
		adoCon.Execute(strSQL)	
		strSQL = "DELETE FROM timesmess WHERE (userid ="  & lngMemberID & ")"
		adoCon.Execute(strSQL)	
		strSQL = "DELETE FROM timesmess WHERE (bbsid ="  & lngMemberID & ")"
		adoCon.Execute(strSQL)
		strSQL = "UPDATE timesmess SET bbsid=2 WHERE (bbsid ="  & lngMemberID & ")"
		adoCon.Execute(strSQL)
		strSQL = "UPDATE timespost SET userid=2 WHERE (userid ="  & lngMemberID & ")"
		adoCon.Execute(strSQL)
		strSQL = "DELETE FROM timesnotify WHERE (userid ="  & lngMemberID & ")"
		adoCon.Execute(strSQL)
		strSQL = "DELETE FROM timesuser WHERE (userid ="  & lngMemberID & ")"
		adoCon.Execute(strSQL)
		strReturn = "DEL"
	End If	
End If

adoCon.Close
Set adoCon = Nothing

Response.Redirect("registerchk.asp?TP=" & strReturn & "&fid=0")
%>