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

    <!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/dv_clsother.asp"-->
<%
	Dim times,Rs
	Mybbs.stats="跳转主题"
	If request("sid")="" then
		Mybbs.AddErrCode(43)
	Elseif not Isnumeric(request("sid")) then
		Mybbs.AddErrCode(35)
	Else
		times=request("sid")
	End If
	Mybbs.ShowErr()
If request("action")="next" Then
	set rs=Mybbs.execute("select top 1 topicid from Dv_topic where boardid="&Mybbs.boardid&" and topicid>"&times&" and not locktopic=2 order by Dateandtime")
	If rs.eof and rs.bof Then
		Mybbs.AddErrCode(44)
	Else
		response.redirect "dispbbs.asp?boardid="&Mybbs.boardid&"&ID="&rs(0)
	End If
Else
	Set rs=Mybbs.execute("select top 1 topicid from Dv_topic where boardid="&Mybbs.boardid&" and  topicid<"&times&" and not locktopic=2 order by Dateandtime desc")
	If rs.eof and rs.bof Then
		Mybbs.AddErrCode(45)
		Set rs=Nothing
	Else	
		response.redirect "dispbbs.asp?boardid="&Mybbs.boardid&"&ID="&rs(0)
	End If
End If
If Mybbs.ErrCodes<>"" Then Mybbs.ShowErr
%>