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"
%>