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

    <%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Dim FrameBody
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
If Request.QueryString("PostType")=0 Then
'http://bbs.ray5198.com/SearchEngine/searchforum.jsp
	FrameBody="<form name=""redir"" action=""http://www.findbbs.com/SearchEngine/searchforum.jsp"" method=""post"">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumname"" value="""&Server.htmlencode(Request.QueryString("forumname"))&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumurl"" value="""&Request.QueryString("forumurl")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumlogincount"" value="""&Request.QueryString("forumlogincount")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""foruminlinecount"" value="""&Request.QueryString("foruminlinecount")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumtitlecount"" value="""&Request.QueryString("forumtitlecount")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumvisitprob"" value=""1"">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumemail"" value="""&Request.QueryString("forumemail")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumtag"" value=""host"">"
	FrameBody=FrameBody+"</form>"
ElseIf Request.QueryString("PostType")=1 Then
'http://bbs.ray5198.com/SearchEngine/searchforumchild.jsp
	FrameBody=FrameBody+"<form name=""redir"" action=""http://www.findbbs.com/SearchEngine/searchforumchild.jsp"" method=""post"">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumchildname"" value="""&Server.htmlencode(Request.QueryString("forumchildname"))&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumchildurl"" value="""&Request.QueryString("forumchildurl")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumchildtitlecount"" value="""&Request.QueryString("forumchildtitlecount")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""foruminlinecount"" value="""&Request.QueryString("foruminlinecount")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumlogincount"" value="""&Request.QueryString("forumlogincount")&""">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumvisitprob"" value=""1"">"
	FrameBody=FrameBody+"<INPUT type=hidden name=""forumchildtag"" value=""subjection"">"
	FrameBody=FrameBody+"</form>"
End If

If IsNumeric(Request.QueryString("PostType")) Then
Response.Write FrameBody
%>
<script LANGUAGE=javascript>
redir.submit();
</script>
<%End If%>