我这个代码错在哪儿了？

pretty_yang 2004-12-05 03:25:32

index.asp错误详细内容为：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/home/bbs/TMP5n8e488neb.asp, 第 37 行
代码如下：
<% option explicit%>


<html>

<head>
<title>论坛</title>

</head>
<body>
<%
dim user_name
If Session("user_name")<>"" Then
user_name=Session("user_name")
Else
response.write"你还未<a href='login.asp'>登陆</a><br>"
response.write"如不是注册用户，请先<a href='add_user.asp'>注册</a>"
End If
%>

<h2 align="center">讨论天地</h2>
<center>
<table border="0" bordercolor="#8800FF" width="90%" cellspacing="5">
<tr bgcolor="#CCFFFF" align="center">
<td width="7%">序号</td>
<td width="43%">主题</td>
<td width="8%">回复</td>
<td width="8%">点击</td>
<td width="8%">发言人</td>
<td width="26%">发言时间</td>
</tr>
<%
Dim sql,rs
'因为要分页显示查询结果，所以用下面方法创建一个recordset对象
sql="Select * From art Where layer=1 Order By submit_date desc"
db.Execute(strsql)
Set rs=Server.CreateObject("ADODB.Recordset")

rs.Open sql,db,1 '请注意创建recordset对象的方法
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
Dim page_size '声明每页多少条记录变量
Dim page_no '声明当前是第几页变量
Dim page_total '声明总页数变量
page_size=10 '每页显示10条记录
If Request("page_no")="" Then '如果第一次打开，则page_no为1，否则，
page_no=1 '由传回的参数决定
Else
page_no=cint(Request("page_no"))
End If
Session("page_no")=page_no '将page_no存入session,以备其它页返回时用
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
'下面一段显示当前页的所有记录
Dim I,J
I=0 '该变量用来输出序号
J=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And J>0 '循环直到当前页结束或文件结尾
I=I+1
J=J-1
%>
<tr bgcolor="#FFFFCC" align="center">
<td><% =(page_no-1)*page_size+I %>
<td><a href="count_hits.asp?art_id=<%=rs("art_id")%>">
<%=rs("title")%></a></td>
<td><%=rs("child")%></td>
<td><%=rs("hits")%></td>
<td><%=rs("user_name")%></td>
<td><%=rs("submit_date")%></td>
</tr>
<%
rs.MoveNext
Loop
End If
%>
</table>
<a href="announce.asp">发表新文章</a>
<%
'调用子程序，写出有关各页的链接信息
Call select_page(page_no,page_total)
%>
</center>
</body>
</html>
下面是我的conn.asp
<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
%>
应该如何修改？？

...全文

212 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

angelyujun 2004-12-05

打赏
举报

用response.write(sql)把那条sql语句输出来看一看什么错误！

纪俊 2004-12-05

打赏
举报

还有rs.Open sql,db,1 ->rs.Open sql,db,1,1或者rs.Open sql,db,1,3看看

纪俊 2004-12-05

打赏
举报

<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
%>

改为：
<%
dim db
set db = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("bbs.mdb")
%>
看看

你用的是旧引擎
/////////////////////////////////////////////////////////////////////
欢迎大家使用编程文档手册V3.5,编程辅助类软件
下载：http://www.skycn.com/soft/11906.html

pretty_yang 2004-12-05

打赏
举报

都按大家的方法做了还是不行，提示错误是：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。

sun94510451 2004-12-05

打赏
举报

连接数据库：
<%
dim db
dim dbstr
dbstr="DBQ="+server.mappath("bbs.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set db=server.createobject("ADODB.CONNECTION")
conn.open dbstr
%>

sun94510451 2004-12-05

打赏
举报

Dim sql,rs
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * From art Where layer=1 Order By submit_date desc"
rs.open sql,db,1,1

hedongyang 2004-12-05

打赏
举报

将37行的db.Execute(strsql) 这个去掉。。。
将40行改成这样：rs.Open sql,db,1,1

要在后面加一个逗号和1

NewBody 2004-12-05

打赏
举报

/home/bbs/TMP5n8e488neb.asp, 第 37 行
--------------------------------------

没找到你的第37行!
另,请注意你是否在执行"在浏览器中预览"功能?或许有这有关.

sdts 2004-12-05

打赏
举报

不是显示错误是 “参数不足”吗找到那一行看有没有什么少了参数啊

lienzhu 2004-12-05

打赏
举报

把db.Execute(strsql)注释掉，好像没用

lienzhu 2004-12-05

打赏
举报

数据库换成这个看看
<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("bbs.mdb")
%>

源码链接： https://pan.quark.cn/s/a4b39357ea24 ### Ubuntu 用户磁盘空间分配与 Linux 硬盘分区方案深入剖析 #### 标题与描述中的核心知识要点说明本文件将系统性地阐释在 Ubuntu 操作系统中如何为用户科学地分配磁盘空间，并深入分析适用于 Linux 的硬盘分区策略。文件不仅会介绍基础的目录结构及其功能，还会提供具体的分区指导以及在实际操作过程中需要留意的事项。 #### 目录结构及其功能说明 - **/bin**：系统常用基础命令的存储位置。 - **/boot**：包含启动时所需文件，例如内核镜像和初始化脚本等。 - **/dev**：存放设备文件。 - **/etc**：存储系统配置信息。 - **/home**：用户个人目录，每个用户拥有独立的子目录。 - **/lib**：存放运行二进制文件所需的共享库。 - **/mnt**：用于临时挂载其他文件系统的目录，可用于挂载软盘或 CD-ROM 设备。 - **/proc**：虚拟文件系统目录，存储当前运行内核的相关信息。 - **/root**：超级用户(root)的主目录。 - **/sbin**：系统管理程序的存放位置。 - **/tmp**：临时文件存储的目录。 - **/usr**：存放只读数据，包括应用程序的可执行文件和文档等。 - **/var**：存储可变数据文件，例如日志文件和邮件队列等。 - **/X11R6**：X Window 系统的安装路径。 #### 硬盘分区策略分析文件中强调，在 Linux 环境下进行硬盘分区时需要综合考量多个因素，以确保系统的稳定运行和性能表现。以下是一些关键的分区建议： 1. **/boot ...

代码转载自：https://pan.quark.cn/s/4f1937b2c732 Quartus Prime是由Altera公司（现已被Intel公司所收购）研发的一款集成化电子设计自动化软件，其主要应用领域在于Field-Programmable Gate Array（现场可编程门阵列）以及Complex Programmable Logic Device（复杂可编程逻辑器件）的设计、仿真、综合、布局布线以及编程等任务。在本案例中，所提及的为Quartus Prime 17.1版本的安装程序，该程序内含器件库文件及其他相关组件，适用于Windows 10 64位操作系统环境，并且已有相关测试验证其可用性。 **1. Quartus Prime概述** Quartus Prime是Altera/Intel公司FPGA设计流程的核心工具，它提供了一个集成化的开发平台，支持从设计概念到硬件实现的完整过程。该软件不仅涵盖了逻辑综合、时序分析、仿真、物理设计等基础功能，还包含了高速接口IP核、嵌入式处理器系统、内存资源管理等多种高级特性。 **2. Quartus Prime 17.1版本的新增功能** - QSYS系统构建工具的优化：17.1版本可能对QSYS系统进行了升级，使得系统集成更为便捷，支持更多的外部设备和处理器模型。 - 性能提升：可能增强了综合和布局布线的效率，降低了设计的功耗和面积。 - 新器件支持：可能会增加对最新发布的Altera FPGA和CPLD产品的支持，如Arria 10、Cyclone 10等系列产品。 - 调试功能的改进：可能强化了硬件调试工具，如JTAG调试和软件调试器的性能。 **3. 器件库文件** 器件库文件是Quartu...

超高逼真度的职场模拟效果。软件1:1复刻Trae AI、VIBE、VS Code等六大主流编程IDE界面，全自动模拟AI代码生成、调试报错、终端编译等完整流程。自带自然随机动画节奏，杜绝机械虚假感，配备应急快捷键极速避险。单文件离线免部署、无广告无联网，轻量化纯净好用，轻松缓解日常编码工作压力。

dotnet 资源 dotnet_8.0.10_64bit_Setup

KMP预习使用，配合我的博文KMP讲解。 yuyancheng28 原创PPT，转载请声明。