远程调用ACCESS数据库的源代码

温柔幻刀

下边的代码适合于所有ACCESS数据库的调用。

把下边的代码保存成一个ASP文件，如NEWS.ASP
data/news.mdb是数据库的目录路径和数据库的名字
top 15是在首页显示15条的意思
From news 是打开NEWS数据库的意思，NEWS是数据库的表的名字
& rs_news("url") &是鼠标点击显示出来的标题的URL
& rs_news("name") & 是让首页显示的标题的字段，要想显示数据库里的哪个字段，就调用哪个

首页调用格式如下：
news.asp的路径邀写对才行
<script language=javascript src="news.asp"></script>


<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data/news.mdb")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql_news="Select top 15 * From news Order By id DESC"

set rs_news=conn.execute(sql_news)
if not rs_news.eof then
rs_news.movefirst
dis_mes=dis_mes & "<tr><td valign=top>"
do while not rs_news.eof
dis_mes=dis_mes &"<li><a href=" & rs_news("url") & " target=_blank>" & rs_news("name") & "</a><br>"
rs_news.movenext
loop
dis_mes=dis_mes & "</td></tr>"
end if
rs_news.close
dis_mes="document.write(""" & dis_mes & """);"
response.write dis_mes
%>