📄 superdeluser.asp
字号:
<title>轻舞飞扬--BBS</title>
<%
set conn=server.CreateObject("adodb.connection")
conn.Open session("constr")
userid=request("userid")
sqlstr="select * from t_reply where f_userid=" & userid
set rs=conn.execute(sqlstr)
while not rs.eof
sqlstr="update t_topic set f_replynum=f_replynum-1 where f_id=" & rs("f_topicid")
conn.execute sqlstr
sqlstr="delete from t_reply where f_id=" & rs("f_id")
conn.execute sqlstr
rs.movenext
wend
sqlstr="select * from t_topic where f_userid=" & userid
set rs=conn.execute(sqlstr)
while not rs.eof
sqlstr="update t_board set f_topicnum=f_topicnum-1 where f_id=" & rs("f_boardid")
conn.execute sqlstr
sqlstr="delete from t_topic where f_id=" & rs("f_id")
conn.execute sqlstr
rs.movenext
wend
sqlstr="delete from t_user where f_id=" & userid
conn.Execute sqlstr
response.redirect "supermanuser.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -