[转帖]远程调用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 %> |
