·您的位置: 首页 » 资源教程 » 编程开发 » ASP » ASP 莫名其妙的错误

ASP 莫名其妙的错误

类别: ASP教程  评论数:0 总得分:0
这是一个简单的测试分页的程序,代码如下:
<%@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 犯糊涂了。
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1