www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\pay_topic_postforumid.asp

    <!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
Mybbs.Loadtemplates("")
if request("chanWord")="" then Response.End
If Not(Mybbs.Forum_ChanSetting(0)=1 And Mybbs.Forum_ChanSetting(7)=1) Then Response.End
if Session("challengeWord")<>Trim(request("chanWord")) then Response.End

Session("challengeWord")=""
Dim rs
set rs=Mybbs.execute("select top 1 * from Dv_ChallengeInfo")
Dim MyForumID
MyForumID=rs("D_ForumID")
set rs=nothing
%>
<form name="redir" action="http://bbs.ray5198.com/addForum.jsp" method="post">
<INPUT type=hidden name="forumId" value="<%=MyForumID%>">
</form>
<script LANGUAGE=javascript>
<!--
redir.submit();
//-->
</script>