ASP 莫名其妙的错误

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

这是一个简单的测试分页的程序,代码如下:

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

[1] [2] 下一页

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航