不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

出现这样的情况？怎么办？

楼主smallfounder（二十过半）2003-01-09 12:15:33 在 Web 开发 / ASP 提问

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。

/mail/setparam.asp，行109
问题点数：80、回复次数：15Top

1 楼zykj_2000（向MVP努力）回复于 2003-01-09 12:21:29 得分 5

有两个问题（最好能把代码贴出来)
一是可能少了end if 或end sub 之类的结束符
不有就是你在打开数据时，
rs.opne sql,conn,1,3 '注意要是3才是可写的
要是这样还不可以的话，看看你的数据库是不是everyone可修改的Top

2 楼smallfounder（二十过半）回复于 2003-01-09 12:25:15 得分 0

我的系统是中文W2K,我已经重新安装了IIS.
<%
Dim dcnDB
Dim anSwer
Dim rsQuery
Set dcnDB=SERVER.CreateObject("ADODB.Connection")
dcnDB.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(tk.mdb)
dcnDB.Open
Set rsQuery=SERVER.CreateObject("ADODB.Recordset")
rsQuery.Open "SELECT * FROM test WHERE paperID=""0001"" ORDER by tmID ",dcnDB
上述语句也出现错误,如下:
Microsoft VBScript 编译器错误错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误错误 '800a01a8'

缺少对象: 'SERVER'

/test/test.asp，行26
Top

3 楼beanbaby2002（豆豆宝宝）回复于 2003-01-09 12:25:54 得分 0

以管理员(Administrator)的身份登陆试试看Top

4 楼BrightEye（男儿当自强，靠别人不如靠自己）回复于 2003-01-09 12:27:12 得分 0

先看看你109行前后的代码.多半是权限的问题.Top

5 楼BrightEye（男儿当自强，靠别人不如靠自己）回复于 2003-01-09 12:29:43 得分 20

Set dcnDB=SERVER.CreateObject("ADODB.Connection")
dcnDB.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(tk.mdb)
dcnDB.Open
Set rsQuery=SERVER.CreateObject("ADODB.Recordset")
rsQuery.Open "SELECT * FROM test WHERE paperID=""0001"" ORDER by tmID ",dcnDB
------------------------------>
Set dcnDB=SERVER.CreateObject("ADODB.Connection")
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(tk.mdb)
dcnDB.Open ConnectionString
Set rsQuery=SERVER.CreateObject("ADODB.Recordset")
rsQuery.Open "SELECT * FROM test WHERE paperID=""0001"" ORDER by tmID ",dcnDBTop

6 楼beanbaby2002（豆豆宝宝）回复于 2003-01-09 12:30:48 得分 10

rsQuery.Open "SELECT * FROM test WHERE paperID='0001'" ORDER by tmID ",dcnDB

单引号！！！

如果再有错，我就不知道了～
Top

7 楼beanbaby2002（豆豆宝宝）回复于 2003-01-09 12:32:07 得分 10

字符型字段用单引号括起来Top

8 楼smallfounder（二十过半）回复于 2003-01-09 12:32:09 得分 0

我发现出错都与500-100.ASP文件有关。
不知那位兄台能提供一个。
iammaster@cmmail.comTop

9 楼beanbaby2002（豆豆宝宝）回复于 2003-01-09 12:33:31 得分 10

错了，是这样

rsQuery.Open "SELECT * FROM test WHERE paperID='0001' ORDER by tmID ",dcnDB

Top

10 楼smallfounder（二十过半）回复于 2003-01-09 12:35:26 得分 0

用单引号也出现一样的错误。
Microsoft VBScript 编译器错误错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误错误 '800a01a8'

缺少对象: 'SERVER'

/test/test.asp，行26
Top

11 楼smallfounder（二十过半）回复于 2003-01-09 12:36:28 得分 0

再加点分，大家加油！Top

12 楼smallfounder（二十过半）回复于 2003-01-09 12:39:40 得分 0

不会要重装系统吧？？？Top

13 楼BrightEye（男儿当自强，靠别人不如靠自己）回复于 2003-01-09 12:52:12 得分 10

你有dsn?用ODBC:
<%set conn=server.createobject("ADODB.Connection")
connstr="DBQ="+Server.MapPath("tk.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
%>Top

14 楼smallfounder（二十过半）回复于 2003-01-09 13:09:00 得分 0

我在另一台服务器（英文W2KAD）上试了一下，也不行。
错误信息少了一点：
Microsoft VBScript runtime error '800a01a8'
Object required: 'SERVER'

/test/test.asp, line 26

Top

15 楼denghan（很久没来ASP版了）回复于 2003-01-10 08:57:10 得分 15

换这种方式连接数据库
dim dcnDB
dim dbpath
set dcnDB=server.createobject("adodb.connection")
DBPath = Server.MapPath("tk.mdb")
dcnDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
-------------------------------------------------------------------
先把上面代码替换你代码中的：
Dim dcnDB
Dim anSwer
Dim rsQuery
Set dcnDB=SERVER.CreateObject("ADODB.Connection")
dcnDB.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(tk.mdb)
dcnDB.Open
看一下还有“server"不是对象的提示没有？Top