asp连接Access出现缺少对象问题，Microsoft VBScript 运行时错误 (0x800A01A8)
我的代码如下：定义的函数conn.asp:<%FunctionAccessconnection(FileName,SQL,Cursor)Dimconn,rs,provid...
我的代码如下：
定义的函数conn.asp:
<%
Function Accessconnection (FileName,SQL,Cursor)
Dim conn,rs,provider,path
Provider = "Provider = Microsoft.Jet.OLEDB.4.0;"
Path= "Data Source="& Server.MapPath(FileName)
Set c=Server.CreateObject("ADODB.Connection")
p1=Provider&Path
c.Open P1
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open SQL,c,Cursor,2
Set Accessconnect=rs
End Function
%>
asp代码如下：
<!--#include virtual="/新建文件夹/conn.htm"-->
<%
MySelfaddress=Request.ServerVariables("PATH_INFO")
No=Request("No")
Name=Request("Name")
if(No<>empty) then
If Request("Send")<>Empty then
SQL="SELECT * FROM 成绩表"
SQL=SQL &" WHERE 学号="& No &" AND 姓名='"& Name &"'"
Set r1= Accessconnection("test1.mdb",SQL,2)
if r1 Is Nothing then
Errl="不能"
Elseif r1.eof then
Errl="不能"
Elseif r1(Lesson)<>0 then
Errl="不能"
Else
Response.Redirect"Test.asp?" & Request.QueryString
End if
end if
else
Errl="不能"
end if
%>
<html >
<head >
<meta http-equiv ="Content-type" content ="text/html";charset=gb2312">
<meta name ="GENERATOR" content ="Microsoft FrontPage 6.0"
<title></title>
</head>
<body background =/新建文件夹/铅笔.jpg>
<h1 align ="center">工程学院在线考试系统</h1>
<hr>
<h3 align ="left " >请填写您的基本信息</h3>
<blockquote >
<form action ="<%=MySelfaddress%>" method ="GET">
<p align =left >学号：<input type ="text" size ="20" name ="No" value ="<%=No%>"></p>
<p align =left >姓名：<input type ="text" size ="20" name ="Name" value ="<%=Name%>"></p>
<p align =left ><input type =submit name ="Send" value ="参加考试">
</form>
</form>
</blockquote>
<hr>
<font color =red><%=Errl%></font>
</body>
</html>
提示问题：错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'Accessconnection(...)'
/新建文件夹/enter.asp, 第 11 行，即Set r1= Accessconnection("test1.mdb",SQL,2)
希望哪位大哥帮帮我！在线等，希望高手留个QQ，我想拜师^^
唉，怪我粗心，不是conn.asp，是asp，按照你们的说法我改了 还是不行啊 村务还是一样的 展开
定义的函数conn.asp:
<%
Function Accessconnection (FileName,SQL,Cursor)
Dim conn,rs,provider,path
Provider = "Provider = Microsoft.Jet.OLEDB.4.0;"
Path= "Data Source="& Server.MapPath(FileName)
Set c=Server.CreateObject("ADODB.Connection")
p1=Provider&Path
c.Open P1
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open SQL,c,Cursor,2
Set Accessconnect=rs
End Function
%>
asp代码如下：
<!--#include virtual="/新建文件夹/conn.htm"-->
<%
MySelfaddress=Request.ServerVariables("PATH_INFO")
No=Request("No")
Name=Request("Name")
if(No<>empty) then
If Request("Send")<>Empty then
SQL="SELECT * FROM 成绩表"
SQL=SQL &" WHERE 学号="& No &" AND 姓名='"& Name &"'"
Set r1= Accessconnection("test1.mdb",SQL,2)
if r1 Is Nothing then
Errl="不能"
Elseif r1.eof then
Errl="不能"
Elseif r1(Lesson)<>0 then
Errl="不能"
Else
Response.Redirect"Test.asp?" & Request.QueryString
End if
end if
else
Errl="不能"
end if
%>
<html >
<head >
<meta http-equiv ="Content-type" content ="text/html";charset=gb2312">
<meta name ="GENERATOR" content ="Microsoft FrontPage 6.0"
<title></title>
</head>
<body background =/新建文件夹/铅笔.jpg>
<h1 align ="center">工程学院在线考试系统</h1>
<hr>
<h3 align ="left " >请填写您的基本信息</h3>
<blockquote >
<form action ="<%=MySelfaddress%>" method ="GET">
<p align =left >学号：<input type ="text" size ="20" name ="No" value ="<%=No%>"></p>
<p align =left >姓名：<input type ="text" size ="20" name ="Name" value ="<%=Name%>"></p>
<p align =left ><input type =submit name ="Send" value ="参加考试">
</form>
</form>
</blockquote>
<hr>
<font color =red><%=Errl%></font>
</body>
</html>
提示问题：错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'Accessconnection(...)'
/新建文件夹/enter.asp, 第 11 行，即Set r1= Accessconnection("test1.mdb",SQL,2)
希望哪位大哥帮帮我！在线等，希望高手留个QQ，我想拜师^^
唉，怪我粗心，不是conn.asp，是asp，按照你们的说法我改了 还是不行啊 村务还是一样的 展开
2个回答
展开全部
你在页面 conn.asp中定义了 函数 Accessconnection。
而你的包含页面是conn.htm，肯定找不到函数Accessconnection 是拼写错误还是本身就出错了。
另外 函数 Accessconnection最后返回rs时语句不对。
Set Accessconnect=rs
改为
Accessconnection=rs
注意：asp函数返回形式是： 函数名=返回值
另外 <!--#include virtual="/新建文件夹/conn.htm"-->
最好改成 <!--#include file="/新建文件夹/conn.asp"-->的形式，不要用虚拟路径
而你的包含页面是conn.htm，肯定找不到函数Accessconnection 是拼写错误还是本身就出错了。
另外 函数 Accessconnection最后返回rs时语句不对。
Set Accessconnect=rs
改为
Accessconnection=rs
注意：asp函数返回形式是： 函数名=返回值
另外 <!--#include virtual="/新建文件夹/conn.htm"-->
最好改成 <!--#include file="/新建文件夹/conn.asp"-->的形式，不要用虚拟路径
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Set Accessconnect=rs改为Accessconnection=rs
试试。
另外数据库路径应该放在conn里，后面的程序写的比较罗嗦。
试试。
另外数据库路径应该放在conn里，后面的程序写的比较罗嗦。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
