UC知道asp调用access数据库的问题!
来源：百度知道 编辑：UC知道 时间：2024/05/21 19:52:51
下面是一段代码,原本是ASP连接SQL数据库的,现在如改为连接ACCESS数据库该怎么改?谢谢大家指导!!
%
dim rs1,sql1
'获得类别id号
sort_id=rs("sort_id")
set rs1=server.createobject("adodb.recordset")
'查询该类别下最新的2件商品信息
sql1="select top 2 * from hw where sort_id='"&sort_id&"' order by hw_id desc"
'打开记录集
rs1.open sql1,conn,3,3
'如果记录集为空，则显示没有商品
if rs1.eof then
%>
<td width="380" valign="top" align="left" bgcolor="#ffffff">暂且没有商品</td>
<%
end if
'循环显示所有商品信息
do while not rs1.eof
%>
<td width="190" valign="top" align="left" height="140" bgcolor="#ffffff">
<p align="center">
<a href="<%=rs1("hw_pic")%>" target="blank">
<img border=&qu
%
dim rs1,sql1
'获得类别id号
sort_id=rs("sort_id")
set rs1=server.createobject("adodb.recordset")
'查询该类别下最新的2件商品信息
sql1="select top 2 * from hw where sort_id='"&sort_id&"' order by hw_id desc"
'打开记录集
rs1.open sql1,conn,3,3
'如果记录集为空，则显示没有商品
if rs1.eof then
%>
<td width="380" valign="top" align="left" bgcolor="#ffffff">暂且没有商品</td>
<%
end if
'循环显示所有商品信息
do while not rs1.eof
%>
<td width="190" valign="top" align="left" height="140" bgcolor="#ffffff">
<p align="center">
<a href="<%=rs1("hw_pic")%>" target="blank">
<img border=&qu
只用把你的conn改了就可以了
DBQ="数据库文件"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DBQ)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
群26164837
欢迎大家来讨论