<%set rst=server.CreateObject("Adodb.recordset") sqlt="select top 1 ArticleID from Product where bigclassname='"&bigclassname&"' and SmallClassName='"&SmallClassName&"' and ArticleID>"&ArticleID&" order by articleid asc" rst.open sqlt,conn,1,1 if rst.eof and rst.bof then response.Write"已到首页" else %> <a href="Articleshow.asp?ArticleID=<%=rst(" mce_href="Articleshow.asp?ArticleID=<%=rst("ArticleID")%>">上一页</a> <% end if rst.close set rst=nothing%> <%set rst=server.CreateObject("Adodb.recordset") sqlt="select top 1 ArticleID from Product where bigclassname='"&bigclassname&"' and SmallClassName='"&SmallClassName&"' and ArticleID<"&ArticleID&" order by articleid desc" rst.open sqlt,conn,1,1 if rst.eof and rst.bof then response.Write"已到末页" else %> <a href="Articleshow.asp?ArticleID=<%=rst(" mce_href="Articleshow.asp?ArticleID=<%=rst("ArticleID")%>">下一页</a> <% end if rst.close set rst=nothing%>