今天有个客户要求写个这个的功能。
所有就开始写了。。
<%
Set Rs=Guan.Execute("Select top 1 IID From Guan_A_Info Where IID<"&IID&" order by IID desc")
If Not (Rs.Bof And Rs.Eof) Then
if LID=0 then
response.Write("<center><a href='show_products.asp?iid="&Rs("IID")&"'>上一页</a></center>")
else
response.Write("<center><a href='show_products.asp?iid="&Rs("IID")&"'>Next</a></center>")
end if
end if
Set Rs=Nothing
Set Rs=Guan.Execute("Select top 1 IID From Guan_A_Info Where IID>"&IID&"")
if LID=0 then
response.Write("<center><a href='show_products.asp?iid="&Rs("IID")&"'>下一页</a></center>")
else
response.Write("<center><a href='show_products.asp?iid="&Rs("IID")&"'>Before</a></center>")
end if
Set Rs=Nothing
%>
代码大概是这样。还有什么数据库连接和函数都是包含的。我就不多写了。。
原创sql上下页简单语句,欢迎合作。