pingpaiinfo.asp

来自「商业网站开发有源代码可以运行」· ASP 代码 · 共 63 行

                      <%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from pingpai where tuijian=1 order by pingpaiorder",conn,1,1
if rs.eof and rs.bof then
response.write "<center>&nbsp;</center>"
else%>
                      
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr>
    <td height="14" bgcolor="EDECEC"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td width=5>&nbsp;</td>
          <td> 
            <div align="center"></div>
            <font color="#990000">品牌推荐</font></td>
          <td width=12>&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
      <table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="2"></td>
        </tr>
        <tr> 
          <td height="10"> 
            <div align="center"> </div>
          </td>
        </tr>
        <tr> 
          <td height="11"> 
            <%
		  while not rs.eof
		  response.write "·<a href=research.asp?action=2&selectname="&trim(rs("pingpainame"))&"&anclassid=0&jiage=100000 target=_blank> <b>"&trim(rs("pingpainame"))&"</b></a><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td background=images/bj_x1.gif height=1></td></tr></table><br>"
		  rs.movenext
		  wend
		  %>
          </td>
        </tr>
        <tr> 
          <td height="1" ></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="19">&nbsp;</td>
  </tr>
</table>
                      
<%end if
rs.close
set rs=nothing%>