class8.asp

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

<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql ="select * from BigClass Order by Gradation"
rs2.open sql,conn,0,1
if rs2.eof then
	response.write "<br>暂无分类"
else%> 
<table width="95%" align="center" cellpadding="5" cellspacing="0">
  <tr> 
    <%i=1
	do while not rs2.eof
	Set rs3 = Server.CreateObject("ADODB.Recordset")
	sql ="select COUNT(BigId) as SumCount from Commend where BigId="&rs2("BigId")&""
	rs3.open sql,conn,0,1
	if not rs3.eof then
	%>
    <td width="8" height="8" align="center" valign="middle"><img src=Images/class.gif></td>
    <td valign="middle"><a onfocus=blur() href=Recommend.asp?BigId=<%=rs2("BigId")%>><b><%=rs2("BCName")%></b></a>(<%=rs3("SumCount")%>)</td>
    <%end if
	rs3.close
	set rs3=nothing
	if i mod 5 = 0 then%>
  </tr>
  <%end if
	rs2.movenext
  i=i+1
  loop%>
</table>
<%end if
rs2.close
set rs2=nothing%>