今天有個(gè)客戶要求寫個(gè)這個(gè)的功能。
所有就開始寫了。。
<%
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")&"'>上一頁(yè)</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")&"'>下一頁(yè)</a></center>")
else
response.Write("<center><a href='show_products.asp?iid="&Rs("IID")&"'>Before</a></center>")
end if
Set Rs=Nothing
%>
代碼大概是這樣。還有什么數(shù)據(jù)庫(kù)連接和函數(shù)都是包含的。我就不多寫了。。
原創(chuàng)sql上下頁(yè)簡(jiǎn)單語(yǔ)句,歡迎合作。