请教小弟我到底错在哪里了?很急
发布时间:2010-05-20 14:01:29 文章来源:www.iduyao.cn 采编人员:星星草
请问我到底错在哪里了?很急,在线等。
这个分页代码,我错在哪里了。
我自己抄随书光盘上的,就是运行不正确,没有提示。但随书光盘上的代码,就能运行正确。我错在哪里了。
随书光盘上的代码:
<%@LANGUAGE= "VBSCRIPT " CODEPAGE= "936 "%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN " "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns= "http://www.w3.org/1999/xhtml ">
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 " />
<title> 分页技术 </title>
<style type= "text/css ">
<!--
.STYLE1 {
font-size: 16px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<p align= "center " class= "STYLE1 "> 用户列表 </p>
<hr />
<p> </p>
<table width= "100% " height= "30% " border= "1 " align= "center ">
<tr>
<td> 用户名 </td>
<td> 用户姓名 </td>
<td> 电子邮箱 </td>
</tr>
<%
database = "user.mdb "
StrConnect = "Driver={Microsoft Access Driver (*.mdb)};DBQ= "&Server.MapPath(database)
Set conn = Server.CreateObject ( "ADODB.Connection ")
conn.Open StrConnect
Set rs = Server.CreateObject( "ADODB.RecordSet ")
rs.Open "Select * from Users ",conn,1,1
dim page,allpages,counts
if rs.eof and rs.bof then
response.Write "目前没有记录 "
else
counts=2
rs.pagesize=counts
allpages=rs.pageCount
page=request( "page ")
if not isNumeric(page) then page=1
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > = allpages then
page = allpages
end if
rs.AbsolutePage = page
do while(Not rs.eof) and counts> 0
%>
<tr>
<td bordercolor= "1 "> <%=rs( "UserName ")%> </td>
<td bordercolor= "1 "> <%=rs( "Ename ")%> </td>
<td bordercolor= "1 "> <%=rs( "Email ")%> </td>
</tr>
<%
counts = counts - 1
rs.movenext
if rs.eof then exit do
loop
end if
%>
<tr height= "50 ">
<td height= "50 ">
<%
response.Write "当前共有 "&rs.recordCount& "条用户记录 "
%> </td>
<td>
<%
if page = 1 then
response.Write "首页|前页 "
else
response.Write " <a href= "&request.ServerVariables( "script_name ")& "?page=1> 首页| </a> <a href= "&request.ServerVariables( "script_name ")& "?page= "&page-1& "> 前页 </a> "
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
ASP如何隐藏表单
<%if Cookies_Toy ="" then
response.write "<a href='login.asp'>登录</a> <a href='reg.asp'>注册</a>"
...
-
为什么js调用css脚本后没效果
这个是css的脚本代码:
body,ul,li{margin: 0; padding: 0; border: 0;}
body {background: #f5f...
-
如何伪造post请求,求指点。。。
要查询大批(也就几万个)运单的状态,那查询网站一次最多查24个,这一个个搞会搞死人的。。
有...
-
Asp.net_简单代码设置GridView自适应列宽不变形
动态绑定的GridView由于列数不固定,而列又太多(博主做的这个项目有150个左右的字段...
-
ASP.NET下实现AJAX注册提醒
Ajax全称是,主要是利用JavaScript实现异步的数据传输,首先说异步,异步是当前操作进行的时候,用...
-
aspnet_regiis安装出错:0x80070005 拒绝访问
点击右边红色标题查看本文完整版:aspnet_regiis安装出错:0x80070005 拒绝访问安装...
-
关于网站边框
像hao123这样的网站上的边框是着么弄的?背景图片吗?http://www.hao123.com
另外哪个素材网站有实用的这内素材
-----...
-
求助!! 多表分组查询统计
高手们,帮帮忙!
用户表 D_user 为
ID Username GroupID
1 张三 2
2 李四 2
3 王五 ...
-
在Paypal提交的同时,把表单的数据提交给数据库
本帖最后由 liuyang2708 于 2012-11-20 23:14:54 编辑
在提交这个支付...
-
虚拟目录下JavaScript不能正常执行
各位大侠好,我在同一台服务器上用两种方式部署同一个网站。
第一种方法:在IIS下直接建一个网站...