Question

asp如果调用ACCES内容?

我要写建一个页面,能显示data目录下jx.mdb数据库内的两个列表wen、gao的五条数据？求高手帮忙
高手些我在线等哈

Answer 1

<%
Dim db,conn,connstr
on error resume next
db="data/jx.mdb" '更改数据库名字
set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(""&db&"")
conn.Open connstr
If conn.state <> 1 Then
response.Write "数据库打开异常，请确认数据连接是否正确"
response.end
End If
%>
<%
dim Rs,Sql
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select top 5* from 你的数据表名"
Rs.Open Sql,conn,1,1
if Rs.bof and Rs.eof then
Response.write("对不起，数据库中没有任何数据！")
else
do while not Rs.eof Or err
Response.write Rs("wen") & " | " & Rs("gao") & "<br />"
Rs.MoveNext
Loop
end if
Rs.close
Set Rs=nothing
Call CloseDB
%>
<%
function CloseDB
conn.close
Set conn=nothing
end function
%>