info_zt.asp

网上购物系统:一个经过完善设计的经典网上购物系统

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="22">
 
  <tr> 
        <%'dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		rs.open "select Top 8 * from zhuanti order by newsid desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "目前还没有购物指南！"
		  else
		  do while not rs.eof
		  i=i+1%>
            <td width="7%" height="22">&nbsp;&nbsp;<img src="img/xiao/blackspot.gif" width="5" height="5">&nbsp; </td>
    <td width="93%">
	<%if len(trim(rs("title")))>13 then
		  response.write "<a href='listzt.asp?id="&rs("newsid")&"'>"&left(trim(rs("title")),13)&"."&"</a><br>"
		  else
		  response.write "<a href='listzt.asp?id="&rs("newsid")&"'>"&trim(rs("title"))&" </a><br>"
		  end if
		  if i>=10 then exit do%>
	
	</td>
  </tr><%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>		       
</table>