link.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
   <tr><td align="center" height="5"></td></tr>
<tr>
      <td align="center"><img border="0" src="img/promo_list_top.gif" width="100%" height="4"></td>
   </tr>
   <tr> 
      <td align="center" height="20" bgcolor="#DBC2B0"> <b>友情链接</b></td>
   </tr>
   <tr>
      <td bgcolor="#F5EFE7"><p style="line-height:150%" align=center>
      <%set rs=server.CreateObject("adodb.recordset")
      rs.Open "select * from ad order by bs",conn,1,1
      do while not rs.EOF
      response.Write "<a href="&trim(rs("url"))&" target=_blank>"&trim(rs("wordlink"))&"</a><br>"
      rs.MoveNext
      loop
      rs.Close
      set rs=nothing
      %></p></td></tr>
</table>