求ASP与Access链接的一段标准代码
假设动态网页try.asp和数据库mark.mdb在同一文件下！谢谢！！代码<%dimconn,connstrSetconn=Server.CreateObject("A...
假设动态网页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 行 展开
2个回答
展开全部
<%
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()
%>
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()
%>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Storm代理
2023-08-29 广告
"StormProxies是全球大数据IP资源服务商，其住宅代理网络由真实的家庭住宅IP组成，可为企业或个人提供满足各种场景的代理产品。点击免费测试（注册即送1G流量）StormProxies有哪些优势？1、IP+端口提取形式，不限带宽，I...
点击进入详情页
本回答由Storm代理提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
