?? page.asp
字號:
<%if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
%>
<%
SUB page()
response.write "共<b>"&Allrecord&"</b>信息┈"
response.write "共<b>"&Allpage&"</b>頁 "
response.Write("[<a href=""?page=1"" title=""第一頁"">首頁<<</a>] ")
if thispage > 1 then
response.Write("[<a href=""?page="&thispage-2&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""" title=""上一頁""><</a>] ")
end if
if (thispage >= 5 and allpage-thispage <1) then response.Write("[<a href=""?page="&thispage-4&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">"&thispage-4&"</a>] ")
if (thispage >= 4 and allpage-thispage <2) then response.Write("[<a href=""?page="&thispage-3&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">"&thispage-3&"</a>] ")
if thispage >=3 then response.Write("<a href=""?page="&thispage-2&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">["&thispage-2&"]</a> ")
if thispage >=2 then response.Write("<a href=""?page="&thispage-1&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">["&thispage-1&"]</a> ")
response.Write("[<b><font color=#cc0000>"&thispage&"</font></b>] ")
if allpage-thispage >=1 then response.Write("[<a href=""?page="&thispage+1&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">"&thispage+1&"</a>] ")
if allpage-thispage >=2 then response.Write("[<a href=""?page="&thispage+2&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">"&thispage+2&"</a>] ")
if (thispage <3 and allpage-thispage >=3) then response.Write("[<a href=""?page="&thispage+3&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">"&thispage+3&"</a>] ")
if (thispage <2 and allpage-thispage >=4) then response.Write("[<a href=""?page="&thispage+4&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">"&thispage+4&"</a>] ")
if (thispage <1 and allpage-thispage >=5) then response.Write("[<a href=""?page="&thispage+5&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""">"&thispage+5&"</a>] ")
if thispage < "Allpage" then
response.Write("[<a href=""?page="&thispage+2&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""" title=""下一頁"">></a>] ")
end if
response.Write("[<a href=""?page="&allpage&"&class1="&class1&"&class2="&class2&"&city="&citykey&"&cnmai="&cnmai&""" title=""最后頁"">>>尾頁</a>]")
END sub %>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -