shops2.asp

来自「php 语言写的c2c商城网站程序」· ASP 代码 · 共 29 行

<%set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 9 * from shjia where flag=2 order by adddate desc",conn,1,1
%>
<table width="100%" border="0" align="center"  cellSpacing="0" cellPadding="0" bgColor="0">
  <%
do while not rs.eof
%>
  <tr> 
    <td height="22" bgcolor="#FFFFFF">&nbsp;<IMG 
                  src="images/icon_jia.gif" width="15" height="9"> 
      <%if rs.eof then%>
      <%else%>
      <%response.write "<a href=user/index.asp?id="&rs("shjiaid")&" target=_blank>"
				if len(trim(rs("name")))>10 then
				response.write left(trim(rs("name")),8)&".."
				else
				response.write trim(rs("name"))
				end if
				response.write "</a>"
				%>
      <%rs.movenext%>
      <%end if%>
    </td>
  </tr>
  <%loop
rs.close
set rs=nothing%>
</table>