帮我看看ASP源码错误的地方

lkjlnet 2013-02-04 04:51:30

我编了一个index.asp,源码如下：



<%

set conn=server.CreateObject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data/nod32.mdb")

%>

<%

Dim MyDate

exec="select * from id where data='"&date()&"'"

set rs=server.CreateObject("adodb.recordset")

rs.open exec,conn,1,1

%>

<%do while not rs.eof%>

<%=rs("yhm")%><br>

<%=rs("mima")%><br>

<%=rs("date")%><br>

<%

rs.movenext

loop

%>

<%

rs.close

set rs=nothing

conn.close

set conn=nothing

%>

运行时出现错误：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/index.asp, 第 9 行

...全文

235 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

ChinaXtHuLang 2013-02-04

打赏
举报

select * from [id] where data='2013-2-4'

斯洛文尼亚旅游 2013-02-04

打赏
举报

exec="select * from id where data='"&date()&"'" 表名称不正确或者字段名称不正确，自己检查下

ChinaXtHuLang 2013-02-04

打赏
举报

select * from id where data='2013-2-4' 这个。你拿到数据库中执行下。看提示什么。。你的这个SQL语句应该有问题。

lkjlnet 2013-02-04

打赏
举报

引用 3 楼 ChinaXtHuLang 的回复:

少了个：& "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/nod32.mdb") 试试

不行，出现这个问题：错误类型： Microsoft JET Database Engine (0x80040E10) 至少一个参数没有被指定值。 /index.asp, 第 9 行

ChinaXtHuLang 2013-02-04

打赏
举报

少了个：& "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/nod32.mdb") 试试

lkjlnet 2013-02-04

打赏
举报

引用 1 楼 fzfei2 的回复:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="server.MapPath("data/nod32.mdb") 改用这试试

按你的方法，出现新的问题：错误类型： Microsoft VBScript 编译器错误 (0x800A0401) 语句未结束 /index.asp, line 3, column 57 conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="server.MapPath("data/nod32.mdb")

fzfei2 2013-02-04