<% dim SQL1,RS1
set Rs1=server.createobject("adodb.recordset")
sql1="SELECT TOP 4 * FROM [Product] ORDER By ID DESC"
rs1.open sql1,Connstr,1,1
if rs1.eof and rs1.bof then
response.write "没有图片推荐产品 "
else
do while not rs1.eof
%>
|
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
|
