UC知道求ASP与Access链接的一段标准代码
来源：百度知道 编辑：UC知道 时间：2024/09/24 20:27:29
假设动态网页try.asp和数据库mark.mdb在同一文件下！谢谢！！
代码<%
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mark.mdb) '第八行
conn.Open connstr
%>
显示错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'Server'
/Untitled-1.asp, 第 8 行
代码<%
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mark.mdb) '第八行
conn.Open connstr
%>
显示错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'Server'
/Untitled-1.asp, 第 8 行
<%
on erro resume next '容错处理
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mark.mdb")
conn.Open connstr
if erro then '如果数据库连接出错
erro.clear '清除出错信息
response.write("数据库连接出错，请检查数据库路径是否正确！")]
response.end()
end if
sub endconn() '定义一个关闭连接的过程
conn.close
set conn=nothing
end sub
%>
在其他也面就直接用
<!--#include file "conn.asp"-->
<html>
<head>
...
..
</html>
<%
call endconn()
%>
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mark.mdb)
conn.Open connstr