展开全部
建立一个conn.asp页面，代码如下：
<%
on error resume next '容错处理
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("newsdata.mdb")'这里注意你的路径，此处为同目录时的情况
conn.Open connstr
if error then '如果数据库连接出错
error.clear '清除出错信息
response.write("数据库连接出错，请检查数据库路径是否正确！")
response.end()
end if
sub endconn() '定义一个关闭连接的过程
conn.close
set conn=nothing
end sub
%>
在其他也面就直接用
<!--#include file "conn.asp"-->
<html>
<head>
...
<body>
<%'下面就直接建立实例对象，输出数据库的字段了%>
<%set rs=server.creatobject("adodb.recordset")
sql="select * from 表"
rs.open sql,conn.1,1
%>
<%=rs("title")%>
</body>
..
</html>
<%rs.close
set rs=nothing
call endconn()
%>
<%
on error resume next '容错处理
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("newsdata.mdb")'这里注意你的路径，此处为同目录时的情况
conn.Open connstr
if error then '如果数据库连接出错
error.clear '清除出错信息
response.write("数据库连接出错，请检查数据库路径是否正确！")
response.end()
end if
sub endconn() '定义一个关闭连接的过程
conn.close
set conn=nothing
end sub
%>
在其他也面就直接用
<!--#include file "conn.asp"-->
<html>
<head>
...
<body>
<%'下面就直接建立实例对象，输出数据库的字段了%>
<%set rs=server.creatobject("adodb.recordset")
sql="select * from 表"
rs.open sql,conn.1,1
%>
<%=rs("title")%>
</body>
..
</html>
<%rs.close
set rs=nothing
call endconn()
%>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
