del_user.asp

统管理：初始设置

<!--#include file="../conn/boardconn.asp"-->
<!--#include file="../style/sql.asp" -->
<!--#include file="../CHAR.INC"-->
<!--#include file="../function.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友好提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%CheckAdmin1%>
<%
Dim UserName
UserName=Request.QueryString("NumID")
%>
<%
Sql="select count(RootID) from Aymi_Topic_Disp where ParentID=0 and UserName='"&UserName&"'"
Set Rs=Conn.execute(Sql)
RootsID=Rs(0)
sql="Update Aymi_Status_Disp set TotalTopics=TotalTopics-"&RootsID&" where StatusID=1"
conn.execute(sql)

Sql="select count(RootID) from Aymi_Topic_Disp where ParentID<>0 and UserName='"&UserName&"'"
Set Rs=Conn.execute(Sql)
LRootsID=Rs(0)
sql="Update Aymi_Status_Disp set TotalReplys=TotalReplys-"&LRootsID&" where StatusID=1"
conn.execute(sql)

Sql="select BoardChild from Aymi_Topic_Disp where ParentID=0 and UserName='"&UserName&"'"
Set Rs=Conn.execute(Sql)
Child=Rs(0)
sql="Update Aymi_Board_Disp set BoardTopics=BoardTopics-'"&RootsID&"' where BoardChild="&Cint(Child)
conn.execute(sql)

Sql="select BoardChild from Aymi_Topic_Disp where ParentID<>0 and UserName='"&UserName&"'"
Set Rs=Conn.execute(Sql)
LChild=Rs(0)
sql="Update Aymi_Board_Disp set BoardReplys=BoardReplys-'"&LRootsID&"' where BoardChild="&Cint(LChild)
conn.execute(sql)

sql="delete from Aymi_Topic_Disp where ParentID=0 and UserName='"&UserName&"'"
conn.execute sql
sql="delete from Aymi_Topic_Disp where ParentID<>0 and UserName='"&UserName&"'"
conn.execute sql
sql="Update Aymi_Status_Disp set RegUsers=RegUsers-1 where StatusID=1"
conn.execute(sql)
sql="delete from Aymi_User_Disp where UserName='"&UserName&"'"
conn.execute sql
response.redirect "all_user.asp"
%>