class4.asp

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

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from ThirdClass where SmallId="&REquest("SmallId")&" order by ThirdId"
rs.open sql,conn,0,1
if rs.eof then
	response.write "<br>暂无三级分类<br><br>"
else
%> 
	<table width="95%" align="center" cellpadding="5" cellspacing="0">
	  <tr> 
		<%i=1
		do while not rs.eof
		Set rs1 = Server.CreateObject("ADODB.Recordset")
		sql ="select COUNT(ThirdId) as SumCount from Merchandise where ThirdId="&rs("ThirdId")&""
		rs1.open sql,conn,0,1
		if not rs1.eof then
		%>
		<td width="8" height="8" align="center" valign="middle"><img src=Images/class.gif></td>
		<td valign="middle"><% Response.Write("<a onfocus=blur() href=List.asp?BigId="&REquest("BigId")&"&SmallId="&REquest("Smallid")&"&ThirdId="&rs("ThirdId")&"&SCName="&REquest("SCName")&"&TCName="&rs("TCName")&"><b>"&rs("TCName")&"</b></a>("&rs1("SumCount")&")")%></td>
		<%end if
		rs1.close
		set rs1=nothing
		if i mod 5 = 0 then%>
	  </tr>
	  <%end if
		rs.movenext
	  i=i+1
	  loop%>
	</table>
<%end if
rs.close
set rs1=nothing
%>