class2.asp

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

<%
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
	%>
    <td width="8" height="8" align="center" valign="middle"><img src=Images/class.gif></td>
    <td valign="middle"><a onfocus=blur() href=Class.asp?BigId=<%=rs("BigId")%>&BCName=<%=rs("BCName")%>><b><%=rs("BCName")%></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%>