一聚教程网:一个值得你收藏的教程网站

热门教程

ASP 莫名其妙的错误

时间:2022-07-02 23:41:23 编辑:袖梨 来源:一聚教程网

这是一个简单的测试分页的程序,代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
 PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">



测试分页


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

热门栏目