mandelreply.asp

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

<title>轻舞飞扬--BBS</title>
<%
	set conn=server.CreateObject("adodb.connection")
	conn.Open session("constr")
	pageno=request("pageno")
	boardid=request("boardid")
	topicid=request("topicid")
	replyid=request("replyid")
	
	sqlstr="delete from t_reply where f_id=" & replyid
	conn.execute sqlstr
	
	sqlstr="update t_topic set f_replynum=f_replynum-1 where f_id=" & topicid
	conn.execute sqlstr
	
	Set rs=Server.CreateObject("ADODB.RecordSet")
	sqlstr="select * from t_reply where f_topicid=" & topicid
	rs.open sqlstr ,conn,1,1
			
	if rs.recordcount<=4*(pageno-1) then
		pageno=pageno-1
	end if

	response.redirect "mantopiccontent.asp?pageno="& pageno & "&boardid=" & boardid & "&topicid=" & topicid
%>