 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
这是一个简朴的测试分页的程序，代码如下： <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>测试分页</title> </head> <body> <% dim all, cnt, page, dig dig = 10 \\\' 每页显示条目 all = 100 \\\' 总共的显示条目 cnt = 1 page = Request.QueryString("page") pagenum = all/dig Response.Write("pagenum = "&pagenum&"<br>page = "&page&"<br>") %><hr> <% cnt = 1 do until cnt > all if cnt>(page-1)*dig and cnt<=page*dig then Response.Write("cnt = "&cnt & "<br>") Response.Write("") end if cnt = cnt + 1 loop \\\' 处理下一页 if (page-pagenum)=0 then \\\'if page=pagenum then 这样是不行滴，简直是搞笑嘛 nxt = "<td align=center>已抵达最后一页</td>" else nxt = "<td><div align=center><a href=testPage2.asp?page="&(page+1)&">下一页</a></div></td>" end if \\\' 处理上一页 if page>1 then bck = "<td><div align=center><a href=testPage2.asp?page="&(page-1)&">上一页</a></div></td>" end if %><hr> <table width="38%" border="1" cellspacing="0" cellpadding="0" align="right"> <tr> <td><div align="center"><a href="testPage2.asp?page=1">首页</a></div></td> <%=bck%> <%=nxt%> </tr> </table></body> </html> 今晚决定把这个搞出来，本以为要写到下半夜的，不过，嘿嘿，本人还是比较不笨滴，没花多少就把它整出来了，兴奋之余，就是为这个希奇的 bug 犯糊涂了。 返回类别: 教程 上一教程: 提高ASP性能的最佳选择(二) 下一教程: 数据验证之特别字符处理 您可以阅读与"ASP 莫名其妙的错误"相关的教程: · ASP+ACCESS莫名奇妙的SQL语句错误解决 · ASP的错误处理集锦 · ASP开发中碰到的错误信息中文说明大全 · 关于ASP访问ACCESS数据的错误的探讨 · 在ASP中常见的错误80004005信息和解决办法 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
