releasereply.asp

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

<title>轻舞飞扬--BBS</title>
<%
	set conn=server.createobject("adodb.connection")
	conn.open session("constr")
	pageno=request("pageno")
	boardid=request("boardid")
	topicid=request("topicid")
	title=request("title")
	content=request("content")
	sqlstr="insert into t_reply(f_topicid,f_title,f_content,f_userid,f_releasetime) values(" &_
		topicid &",'" & title & "','" & content & "'," & session("userid") & ",'" & now() & "')"
	conn.execute sqlstr
	sqlstr="update t_topic set f_replynum=f_replynum+1 where f_id=" & topicid
	conn.execute sqlstr
	response.redirect "showtopiccontent.asp?boardid=" & boardid & "&topicid=" & topicid & "&pageno=" & pageno
%>