这是一个简单的测试分页的程序,代码如下:
<%@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 = 1do until cnt > allif cnt>(page-1)*dig and cnt<=page*dig then Response.Write("cnt = "&cnt & "<br>") Response.Write("")end ifcnt = cnt + 1loop' 处理下一页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 犯糊涂了。