so_page.asp

这是一个非常好的留言版程序

<%
Function page(pagefile,cs,nowpage,pageall,pagesize,zjls)

s=nowpage-1
n=nowpage+1
js=10
jgs=4
response.write "共<font color=#FF0000>"&zjls&"</font>篇&nbsp;<font color=#FF0000>"&pagesize&"</font> 篇/页 " 
if nowpage>1 then
response.write "<a href="&pagefile&"?pageno="&s&"&"&cs&" ><u>上一页</u></a>&nbsp;"
'else
'response.write "<font color=#C0C0C0>上一页</font>&nbsp; &nbsp;"
end if

if cint(pageall)>1 then

	if cint(pageall)>cint(js) then ' 当总页数大于基数的时候
	ksz=nowpage-int(jgs)
	if ksz<=0 then ksz=1
	jsz=nowpage+int(jgs)
	if jsz>pageall then jsz=pageall
	

			for i=ksz to cint(jsz)
			
				if cint(nowpage)=cint(i) then 
				response.write "<font color='#0000FF'>"&i&"</font>&nbsp;"		
				else
				response.write "<a href="&pagefile&"?pageno="&i&"&"&cs&" ><u>["&i&"]</u></a>&nbsp;"
				end if
			next
			
	else '否则
			for i=1 to cint(pageall)
			
				if cint(nowpage)=cint(i) then 
				response.write "<font color='#0000FF'>"&i&"</font>&nbsp;"		
				else
				response.write "<a href="&pagefile&"?pageno="&i&"&"&cs&" ><u>["&i&"]</u></a>&nbsp;"
				end if
			next	
	end if
		
end if

if cint(pageall)>cint(nowpage) then
response.write "<a href="&pagefile&"?pageno="&n&"&"&cs&" >下一页</a>&nbsp; &nbsp;<br><br>"
'else
'response.write "<font color=#C0C0C0>已到尾页</font>&nbsp; &nbsp;<br><br>"
end if

'response.write "页次：<font color=#FF0000>"&nowpage&"</font>/<font color=#FF0000>"&pageall&"</font>页&nbsp;"

end Function

%>