commendgoods.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 48 行

<table width="405" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <%
	if request("BigId")<>"" then
		BigId=request("BigId")
	else
		BigId=0
	end if
	if bigid=0 then
		TopCount=6
	else
		TopCount=5
	end if
	if bigid=0 then
		br=3
	else
		br=5
	end if
	Set rs= server.CreateObject("ADODB.Recordset")
	sql="select top "&TopCount&" * from Commend  where BigId="&BigId&" order by Date desc"
	rs.open sql,conn,0,1
	if not rs.eof then
	i=1
	do while not rs.eof%>
    <td width="135" align="center" valign="top">
	 <table width="135" border="0" cellspacing="0" cellpadding="0">
      <tr> 
          <td background="images/SPic_bg.gif" width="135" height="100" align="center" valign="middle"><a onfocus=blur() href="Product.asp?id=<%=rs("cpid")%>"><img src="<%=rs("SmallPic")%>" width="75" height="75" border="0"></a></td>
      </tr>
      <tr> 
       <td align="center" height="22"><a onfocus=blur() href="Product.asp?id=<%=rs("cpid")%>">
	   <%if len(trim(rs("TradeName")))>11 then
		   response.write(""&left(trim(rs("TradeName")),9)&"..."&"")
	   else
		   Response.Write(""&rs("TradeName")&"")
	   end if%></a></td>
     </tr>
   </table>
  </td><%if i mod int(br) = 0 then%>
 </tr>
<%end if
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
end if%>
</table>