这是一个简单的测试分页的程序，代码如下：
< %@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 犯糊涂了。