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>"×&" 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<"×&" 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 %>