Asp读取Access数据库

Visionboy_ 2008-12-02 02:13:21

先谢过！O(∩_∩)O。。
//文件Conn.asp连接两个数据库已测（截取部分代码）
Sub OpenConn()
On Error Resume Next
Db = "Data/data.asp" '数据库目录和名称,请使用绝对路径.
SqlString = "Now()"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

'Dvbbs_conn 连接Dvbbs数据库

Db2 = "BBS/Data/data.asp" '数据库目录和名称,请使用绝对路径.
SqlString2 = "Now()"
ConnStr2 = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db2)
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.open ConnStr2
//////////////////////////////////////////////////////////
//首页 index.asp 引用 
问题：如何读取显示 Db2 = "BBS/Data/data.asp" 数据库中 [Topic] 表中 Title 等字段的信息！~？

...全文

328 点赞收藏 8

写回复

8 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

一把编程的菜刀 2008-12-03

<%
set rs=server.createobject("adodb.recordset")
sqlfox="select * from Dv_Topic order by desc" 'by后面漏了一个字段
rs.open sqlfox,conn2,1,1
if rs.eof then
response.write "还没有！"
else
do while not rsfox.eof '这个错误，应该是rs而不是rsfox
%>
<tr>
<td width="100%">· <a target="_blank" href="shangjiainfo.asp?id= <%=rsfox("id")%>"> <%=left(rs("title"),21)%> </a> </td>
</tr>
<%
asjj=asjj+1
if asjj=5 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

回复赞

wenhua200888 2008-12-03

改成这样就可以了

<%
set rs=server.createobject("adodb.recordset")
sqlfox="select * from Dv_Topic order by id desc"
rs.open sqlfox,conn2,1,1
if rs.eof then
response.write "还没有！"
else
do while not rs.eof
%>
<tr>
<td width="100%">· <a target="_blank" href="shangjiainfo.asp?id= <%=rs("id")%>"> <%=left(rs("title"),21)%> </a> </td>
</tr>
<%
asjj=asjj+1
if asjj=5 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

回复赞

wenhua200888 2008-12-03

改成这样就可以了

<%
set rs=server.createobject("adodb.recordset")
sqlfox="select * from Dv_Topic order by desc"
rs.open sqlfox,conn2,1,1
if rs.eof then
response.write "还没有！"
else
do while not rs.eof
%>
<tr>
<td width="100%">· <a target="_blank" href="shangjiainfo.asp?id= <%=rs("id")%>"> <%=left(rs("title"),21)%> </a> </td>
</tr>
<%
asjj=asjj+1
if asjj=5 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

回复赞

virgo2008 2008-12-02



sqlfox="select * from Dv_Topic order by  desc"

你是对什么在排序啊?by后面的东西跑哪去了

回复赞

初学者ASP-NET 2008-12-02

<%
set rs=Server.CreateObject("ADODB.Recordset")
sql="select 字段 from 数据表名"
rs.open sql,conn,1,1 '注解：其中1，1表示只读数据
%>

回复赞

孤帆远影_q 2008-12-02

表名
到底是Dv_Topic还是Topic

回复赞

Visionboy_ 2008-12-02

/////////////这样读取为什么出不来
<%
set rs=server.createobject("adodb.recordset")
sqlfox="select * from Dv_Topic order by desc"
rs.open sqlfox,conn2,1,1
if rs.eof then
response.write "还没有！"
else
do while not rsfox.eof
%>
<tr>
<td width="100%">·<a target="_blank" href="shangjiainfo.asp?id=<%=rsfox("id")%>"><%=left(rs("title"),21)%></a></td>
</tr>
<%
asjj=asjj+1
if asjj=5 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

回复赞

tomscat 2008-12-02

Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT * FROM [Topic]", conn2, 3, 1
Do While Not RS.EOF
Response.Write RS("字段名1")
Response.Write RS("字段名2")
...........................
RS.MoveNext
Loop

回复赞