class7.asp

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

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="select * from BigClass Order by Gradation"
rs.open sql,conn,0,1
if rs.eof then
	response.write "<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(BigId) as SumCount from Merchandise where BigId="&rs("BigId")&""
	rs1.open sql,conn,0,1
	if not rs1.eof then
	Set rs2 = Server.CreateObject("ADODB.Recordset")
	sql ="select SmallId from SmallClass where BigId="&rs("BigId")&""
	rs2.open sql,conn,0,1
	if not rs2.eof then%>
	<td width="8" height="8" align="center" valign="middle"><img src=Images/class.gif></td>
	<td valign="middle"><a onfocus=blur() href=SearchPro2.asp?BigId=<%=rs("BigId")%>&SmallId=<%=rs2("SmallId")%>&Price1=<%=request("Price1")%>&Price2=<%=request("Price2")%>&keyword=<%=request("keyword")%>&Qualification=<%=request("Qualification")%>&Array=<%=request("Array")%>><%=rs("bcname")%></a>(<%=rs1("SumCount")%>)</td>
	<%end if
	rs1.close
	set rs1=nothing
	end if
	rs2.close
	if i mod 5 = 0 then%>
  </tr>
  <%end if
	rs.movenext
  i=i+1
  loop%>
</table>
<%end if
rs.close
set rs=nothing%>