asp读取Access数据
<%Dimconn,connstrSetconn=Server.CreateObject("ADODB.CONNECTION")connstr="Provider=Mic...
<%
Dim conn, connstr
Set conn = Server.CreateObject("ADODB.CONNECTION")
connstr = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("mysite.mdb")
Sub ConnOpen
On Error Resume Next
conn.Open connstr
If Err <> 0 Then
ConnClose
Response.Write "数据库连接失败!"
Err.Clear
Response.End()
End If
End Sub
Sub ConnClose
Conn.Close
Set conn = Nothing
End Sub
%>
<%
dim name,time
set rs=server.CreateObject("adodb.recordset")
sql="select * from my"
rs.Open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>读取数据</title>
</head>
<body>
</body>
</html> 展开
Dim conn, connstr
Set conn = Server.CreateObject("ADODB.CONNECTION")
connstr = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("mysite.mdb")
Sub ConnOpen
On Error Resume Next
conn.Open connstr
If Err <> 0 Then
ConnClose
Response.Write "数据库连接失败!"
Err.Clear
Response.End()
End If
End Sub
Sub ConnClose
Conn.Close
Set conn = Nothing
End Sub
%>
<%
dim name,time
set rs=server.CreateObject("adodb.recordset")
sql="select * from my"
rs.Open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>读取数据</title>
</head>
<body>
</body>
</html> 展开
3个回答
展开全部
虽然你定义了连接数据库的函数，但你在网页里面并没有调用这个函数，就像你买了QQ秀，但QQ秀还在个人物品里面，没有穿在身上，当然是不会显示效果了。
在读取数据库里的内容时先调用一下连接数据库函数ConnOpen
把
<%
dim name,time
set rs=server.CreateObject("adodb.recordset")
sql="select * from my"
rs.Open sql,conn,1,1
%>
修改成
<%
call ConnOpen '先调用连接数据库函数，连接上数据库
dim name,time
set rs=server.CreateObject("adodb.recordset")
sql="select * from my"
rs.Open sql,conn,1,1
%>
在读取数据库里的内容时先调用一下连接数据库函数ConnOpen
把
<%
dim name,time
set rs=server.CreateObject("adodb.recordset")
sql="select * from my"
rs.Open sql,conn,1,1
%>
修改成
<%
call ConnOpen '先调用连接数据库函数，连接上数据库
dim name,time
set rs=server.CreateObject("adodb.recordset")
sql="select * from my"
rs.Open sql,conn,1,1
%>
参考资料： http://www.0576w.com/website/88/webdesign_2009_7_11_410.html
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
