class1.asp

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

<table width="330" border="0" align="center" cellpadding="0" cellspacing="0">
  <%
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql = "select * from BigClass where HomePage=True  Order by Gradation"
 rs.open sql,conn,1,1
 do while not rs.eof
  Set rs1 = Server.CreateObject("ADODB.Recordset")
 sql = "select * from SmallClass where BigId="&rs("BigId")&" order by SmallId"
 rs1.open sql,conn,1,1
 Response.Write("<tr><td width=330>&nbsp;<a href=Class.asp?BigId="&rs("BigId")&"><font color=#FF6600><b>"&rs("BCName")&"</b></font></a></td></tr><tr><td>")
 i=1
 Response.Write"&nbsp;"
 do while not rs1.eof
Response.Write("<a onfocus=blur() href=Sort.asp?BigId="&rs("BigId")&"&SmallId="&rs1("SmallId")&"&SCName="&rs1("SCName")&">"&rs1("SCName")&"</a>&nbsp;")
 br=i mod rs1.recordcount
 dim br
 if i mod 5 = 0 and br<>0 then
  Response.Write("<br>")
 end if
  rs1.movenext
i=i+1
 Response.Write"&nbsp;"
loop
rs1.close
set rs1=nothing
 Response.Write("</td></tr>")
rs.movenext
loop
rs.close
set rs=nothing%>
</table>