xuanxiao · 发表于 2023-2-16 15:28:43

<%
Sub The_Next()
Dim rstArticle,strSQL
Dim ID_New
strSQL="select top 1 id,typeid,title from article where id>"&intID&" order by id"
Set rstArticle=conn.Execute(strSQL)
if rstArticle.eof then
Response.Write " 下一篇：<a href='javascript:'>没有了</a>"
else
ID_New=rstArticle(0)
Response.Write " 下一篇：<a href='?pid=53&tid="&rstArticle(1)&"&id="&ID_New&"'>"&rstArticle(2)&"</a>"
end if
end Sub
Sub The_Previous()
Dim rstArticle,strSQL
Dim ID_New
strSQL="select top 1 id,typeid,title from article where id<"&intID&" order by id"
Set rstArticle=conn.Execute(strSQL)
if rstArticle.eof then
Print " 上一篇：<a href='javascript:'>没有了</a>"
else
ID_New=rstArticle("id")
Print " 上一篇：<a href='?pid=53&tid="&rstArticle(1)&"&id="&ID_New&"'>"&rstArticle(2)&"</a>"
end if
rstArticle.Close()
Set rstArticle=Nothing
end Sub
%>

复制代码

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

[文章教程] ASP版上一篇下一篇代码