
求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()
%>

2025-03-12 广告
AD账户批量创建工具是河南九维网络科技有限公司针对Active Directory(AD)环境设计的高效管理工具。该工具能够简化用户账号的批量创建流程,大幅提高管理员的工作效率。通过导入包含用户信息的文件,管理员可以快速创建多个用户账号,同...
点击进入详情页
本回答由小鹿管家提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询