hotshop.asp

来自「本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流」· ASP 代码 · 共 19 行

<!--#include file="conn.asp"-->
<%
Dim vertigo1,vertigo2
set vertigo2=server.CreateObject("adodb.recordset")
vertigo1="select top 6 * from [user_info] where font='1' order by shop_hits desc"
vertigo2.open vertigo1,conn,1,1
IF not vertigo2.eof and not vertigo2.bof then
  do while not vertigo2.eof
  %>
document.write("<td width='16%' align='center' ><a href='shop_info.asp?user_id=<%=vertigo2("user_id")%>' target=_blank><img src='<%=vertigo2("shop_img")%>' width=50 height=50 border=0 style='border: 1px solid #000000'><br><%=left((vertigo2("shop_name")),6)%></a></td>")
<%
  vertigo2.movenext
  loop
end if
conn.Close
Set conn=Nothing
%>