网络编程
位置：首页>> 网络编程>> Asp编程>> asp如何制作一个简单的翻页程序？

asp如何制作一个简单的翻页程序？

　　发布时间：2010-06-29 21:26:00　

标签：翻页,asp,分页

如何制作一个分页程序？

确实，翻页程序可以相互借鉴，但具体到每一需求，还是有较大差别的。

代码入下，供参考：

<％language="vbscript"
set  conn=server.createobject("adodb.connection")
conn.open  "driver={sql  server};server=luo;uid=sa;pwd=;database=zszl"
set  rs=server.createobject("adodb.recordset")
％>
<％pgsize=5
page=request.querystring("page")
sql="select * from  test  where  id1=1"
rs.open  sql,conn,1
rs.pagesize=pgsize
pgnm=rs.pagecount
if  page=""or  clng(page)<1  then page=1
if   clng(page)>pgnm  then  page=pgnm
if  pgnm>0  then  rs.absolutepage=page
count=0
do  while  not  rs.eof  and  count<rs.pagesize    
％>
<％=rs("id1")％>
<br>
<％=d％>
<br>
<％
count=count+1
rs.movenext
loop
rs.close
set  rs=nothing
％>
<a  href=dis.asp?page=1>第一页</a>
<a  href=dis.asp?page=<％=pgnm％>>最末页</a>
<a  href=dis.asp?page=<％=page+1％>>下一页</a>
<a  href=dis.asp?page=<％=page-1％>>上一页</a> 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com