admin_page.asp

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

<%
dim pagefile '文件名
dim nowpage '当前页面
dim pageall '总页面
dim cs '参数
dim pagesize '每页大小
dim zjls '总记录数


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

s=nowpage-1
n=nowpage+1

response.write "&nbsp;&nbsp;"

response.write "<a href="&pagefile&"?pageno=1&"&cs&" >首页</a>&nbsp; &nbsp;"


if nowpage>1 then
response.write "<a href="&pagefile&"?pageno="&s&"&"&cs&" >上一页</a>&nbsp; &nbsp;"
else
response.write "<font color=#C0C0C0>上一页</font>&nbsp; &nbsp;"
end if


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


response.write "<a href="&pagefile&"?pageno="&pageall&"&"&cs&" >尾页</a>&nbsp; &nbsp;"
    
response.write "页次：<font color=#FF0000>"&nowpage&"</font>/<font color=#FF0000>"&pageall&"</font>页&nbsp;"

response.write "<font color=#FF0000>"&pagesize&"</font>  篇/页 共<font color=#FF0000>"&zjls&"</font>篇&nbsp;&nbsp;"               




end Function




%>