设为首页 | 联系站长
首  页 公司简介 企业建站 网站优化 电脑服务 成功案例 空间租用 建站资源 联系我们
   
如何制作一个翻页程序

如何制作一个翻页程序?

   

    确实,翻页程序可以相互借鉴,但具体到每一需求,还是有较大差别的。代码入下,供参考:

<%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> 

作者:webceo / 发布日期:2008-9-25 14:00:10
 
            互联网动态
  
   联系电话:0371-63697306/08
   传真号码:0371-63697308
     Email:zzjianzhan@163.com
 热线电话:13253387239
            常见问题解答
   
版权所有©2006-2008郑州建站网络公司  豫ICP备07500720号