头痛了也不明白是怎么一回事，帮忙看看吧

jokeboy 2003-08-24 01:23:37

运行demo.asp出现以下错误：
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/onepage.asp, 第 11 行

onepage.asp
<%
Sub ShowOnePage(rs,Page)
Response.Write "<CENTER><TABLE BORDER=1>"
Response.Write "<TR BGCOLOR=#00FFFF>"
Response.WRITE "<TD>编号</TD>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
Next
Response.Write "</TR>"

rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
Response.Write "<TR>"
RecNo = (Page - 1) * rs.PageSize + iPage
Response.Write "<TD>" & RecNo & "</TD>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).Value & "</TD>"
Next
Response.Write "</TR>"
rs.MoveNext
If rs.EOF Then Exit For
Next
Response.Write "</TABLE></CENTER>"
End Sub
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>
<body>
</body>
</html>

demo.asp


<%
'打开数据库
set conn = server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("test.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql="test"
rs.open sql,conn,3
%>

<html>
<head>
<title>学生档案管理系统演示程序</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<center><font=4>学生档案管理系统演示程序</center></font>
<hr>
<%
rs.pagesize=5
page = clng(request("page"))
if page < 1 then pgae=1
if page > rs.pagecount then page = rs.pagecount
ShowOnePage rs,Page
%>
<%
If Page <> 1 Then
Response.Write "<A HREF=Pagev3.asp?Page=1>第一页</A>"
Response.Write "<A HREF=Pagev3.asp?Page=" & (Page-1) & ">上一页</A>"
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=Pagev3.asp?Page=" & (Page+1) & ">下一页</A>"
Response.Write "<A HREF=Pagev3.asp?Page=" & rs.PageCount & ">最后一页</A>"
End If
%>
</body>
</html>

...全文

26 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

ahuiok 2003-08-24

打赏
举报

<%
'打开数据库
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("test.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.CreateObject("ADODB.Recordset")
sql ="select * from test"
rs.open sql,conn,3,3

%>

<html>
<head>
<title>学生档案管理系统演示程序</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<center>学生档案管理系统演示程序</center>
<hr>

<%
'分页显示
rs.PageSize = 5
Page = CLng(Request("Page")) ' CLng 不可省略
if isnull(page) then Page = 1
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage =page

%>
<table width="75%" border="1" align="center">
<tr>
<td>学号</td>
<td>姓名</td>
<td>电话</td>
<td>数学</td>
<td>外语</td>
<td>计算机</td>
</tr>
<% For iPage = 1 To rs.PageSize %>

<tr>
<td><%=rs("学号")%></td>
<td><%=rs("姓名")%></td>
<td><%=rs("电话")%></td>
<td><%=rs("数学")%></td>
<td><%=rs("外语")%></td>
<td><%=rs("计算机")%></td>
</tr>

<% rs.MoveNext
If rs.EOF Then Exit For
Next %>
</table>
<table width="96%" height="25" border="0" cellpadding="0" cellspacing="0" bgcolor="f0f0f0" class="top">
<tr>
<td width="379"></td>
<td width="180">共计<%=rs.RecordCount%>条　第
<%response.write Page & "/" & rs.PageCount%>
页</td>
<td width="63"><a href=demo.asp?Page=<%= Page-1%>>上一页</a></td>
<td width="66"><a href=demo.asp?Page=<%= Page+1%>>下一页</a></td>
</tr>
</table>
<%rs.close%>

</body>
</html>

'test.mdb与demo.asp 在同级目录下，我大概念把你要实现的东西做了，但跟你的有些不一样，可我觉得这样做即节省了页面又加快了asp的效率。如果你要的不是这样的效果，那再发贴吧。

月小升java-er点com 2003-08-24

打赏
举报

<%
'打开数据库
set conn = server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("test.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql="test"
rs.open sql,conn,1,3
%>

——世界最具影响力的女人之一欧普拉 “人生是不公平的，习惯去接受它吧。请记住，永远都不要抱怨！” ——世界首富比尔·盖茨抱怨是最消耗能量的无益举动。有时候，我们不仅会针对人、也会针对不同的生活情境表示不满；如果找不到人倾听我们的抱怨，我们还会在脑海里抱怨给自己听。本书作者提出的神奇“不抱怨”运动，来得恰是时候，它正是我们现代人最需要的。我们可以这样看：天下只有三种事：我的

[职业交流]看看在职场里是怎么混社会的……（分享篇）作者：璇杓宫日期：2010-8-29 21:56:00 二十五岁之前不定行业，三十岁之前不定工作，三十七岁之后不轻易动窝子。看看吧，免得以后撞得头破血流再后悔。写得很长，但是非常有用，如果看到了就收藏起来，留着有空的时候再看。看完了就是你赚到了。　　　　很多人混到现在一事无成，或自认为一事无成。还有很多人混到现在感

小米的开源监控系统open-falcon架构设计，看完明白如何设计一个好的系统小米的http://book.open-falcon.org/zh/intro/ 早期，一直在用zabbix，不过随着业务的快速发展，以及互联网公司特有的一些需求，现有的开源的监控系统在性能、扩展性、和用户的使用效率方面，已经无法支撑了。因此，我们在过去的一年里，从互联网公司的一些需求出发，从各位SRE、SA、...

文头白话：作为一个菜鸟，为了避免误导我就不说Python源码结构了。和那一堆源码文件初次见面就很头疼，我对C语言了解不深，看源码也只是为了更好的了解Python，所以可能会有很多错误或者不足的地方。如果有大神看到了，能帮忙指出，将感激不尽。 1. Python整数的表示首先要知道的是在python3中整型数字均采用long类型实现的，那么我们就要找到相关文件。在Objects路径下能找到longobject.c文件，查看代码不难发现PyLongObject应该就是整数对应的结构体。在lon

距离上次发文已经好长时间了，期间接到个维护的需求，业务完全不懂，开发期间又回了趟老家，比较忙，距离上次发文感觉已经好长时间了。根据需求二次开发对于老程序员来说，最难的应属于业务的理解吧，对于我们这些新程序猿来说那更是头疼了。对于不明白业务的开发来说，我的经验是只有多问了，这个比你自己撸代码快多了，看代码理解业务应该属于最慢的一种解读吧，除非之前懂业务的跳槽了，然还有最重要的要问下提...