答案:1.请先看看你的站点路径是否正确
2.看看你的站点是否支持ASP【可用包含<%=now()%>语句测试.】
3.看看权限.
4.如果还不行,请联系我.
<%
dim conn
dim connstr
dim db
db="database/data_asp.mdb"
'注意数据库路径以及数据库名。
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
dim rs,sqlStr
set rs=Server.CreateObject("ADODB.Recordset")
sqlStr="Select * from tablename"
'tablename为数据库中的表名。
rs.open sql,conn,1,3
do while not rs.Eof
'自行修改一下你的字段名,在这里tablename表必须有一下这些字段。
response.write(rs("字段名1")&"<br>")
response.write(rs("字段名2"))
rs.MoveNext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%
dim conn
dim connstr
dim db
db="database/data_asp.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
ASP连接ACCESS数据库
Dim conn,connstr
on error resume next
connstr="dbq="+server.mappath("&DataBase&")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
conn.open connstr
sub CloseConn()
conn.close
set conn=nothing
end sub
<%
dim conn
dim connstr
dim db
db="database/data_asp.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Driver={Microsoft Access Driver(*.mdb);DBQ=" & Server.MapPath(db)
conn.Open connstr
dim rs,sqlStr
set rs=Server.CreateObject("ADODB.Recordset")
sqlStr="Select * from tablename"
rs.open sql,conn,1,3
do while not rs.Eof
response.write(rs("字段名1")&"<br>")
response.write(rs("字段名2"))
rs.MoveNext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%
dim conn,connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("*.mdb")
<!--上一行最后写上你的数据库路径-->
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
if Err then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查Conn.asp中的数据库指向。"
Response.End
end if
%>
将上面的内容保存为conn.asp
答案补充我的不能读取?
不会吧 我自己就是用的这个啊
上一个:在asp.NET中下面的是什么控件
下一个:如何用asp实现excel数据导入到sql2000中