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>页&nbsp;"
	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 %>