今天有個客戶要求寫個這個的功能。
所有就開始寫了。。
<%
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上下頁簡單語句，歡迎合作。
