【www.gdgbn.com--php常用代码】

这是一个简单的测试分页的程序，代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>




测试分页


<%
    dim all, cnt, page, dig
    dig = 10 " 每页显示条目
    all = 100 " 总共的显示条目
    cnt = 1
    page = Request.QueryString("page")
    pagenum = all/dig
    Response.Write("pagenum = "&pagenum&"
page = "&page&"
")
%>

<%
cnt = 1
do until cnt > all
if cnt>(page-1)*dig and cnt

本文来源：http://www.gdgbn.com/jiaocheng/8135/