superdelboard.asp

在开发大型软件的漫长过程中

<title>轻舞飞扬--BBS</title>
<%
	set conn=server.CreateObject("adodb.connection")
	conn.Open session("constr")
	boardid=request("boardid")
	
	sqlstr="select * from t_topic where f_boardid=" & boardid
	set rs=conn.execute(sqlstr)
	
	while not rs.eof
		sqlstr="delete from t_reply where f_topicid=" & rs("f_id")
		conn.execute sqlstr
		rs.movenext
	wend
	
	sqlstr="delete from t_topic where f_boardid=" & boardid
	conn.Execute sqlstr
	
	sqlstr="delete from t_board where f_id=" & boardid
	conn.Execute sqlstr
	
	
	response.redirect "supermanboard.asp"
%>