top_ad.asp

网络商店源码 实现商品浏览 购物车 后台管理等

 <%set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from shop_text order by linkidorder",conn,1,1
		dim i
		i=rs.recordcount%>
<table width="155" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
  <%if rs.eof and rs.bof then
		  response.write "还没有数据，请添加！"
		  else
		  do while not rs.eof%>
  <tr bgcolor="#FFFFFF"> 
    <td width="28%" height="24"> <img src="images/top4.gif" width="12" height="13"> 
      <a href="<%=trim(rs("link"))%>" <%if rs("tc")=1 then%>target="_blank"<%else%><%end if%>> 
      <font color="<%=trim(rs("textys"))%>"><%=trim(rs("text"))%></font></a></td>
  </tr>
  <%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
</table>