class3.asp

一套设计完善、高效的web商城解决方案

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from SmallClass where BigId="&REquest("BigId")&" order by SmallId"
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(SmallId) as SumCount from Merchandise where SmallId="&rs("SmallId")&""
		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=Sort.asp?BigId="&REquest("BigId")&"&SmallId="&rs("SmallId")&"&SCName="&rs("SCName")&"><b>"&rs("SCName")&"</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 rs=nothing%>