class.asp

来自「if you want it,call me.」· ASP 代码 · 共 46 行

<table width="170" border="0" cellpadding="0" cellspacing="0">
  <tr  class="tabbgcolorli"> 
    <td>　☆ 商品分类</td>
  </tr>
</table>
<table width="170" height="56" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td class="border1"> 
      <%
			set rs=server.createobject("adodb.recordset")
			sql="select * from bigclass order by paixu"
			rs.open sql,conn,1,1
			if rs.eof then
			response.write"暂时没有商品分类"
			else
			do while not rs.eof 
			xsid=rs("bcid")
			%>
      &nbsp;&nbsp;※<a href="bigclass.asp?id=<%=xsid%>"><%=rs("bcname")%></a><br> 
      <%
			set rs1=server.createobject("adodb.recordset")
			sql1="select * from smallclass where bcid="&xsid
			rs1.open sql1,conn,1,1
			if rs1.eof then
			response.write"<br>"
			else
			do while not rs1.eof
			%>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[<a href="smallclass.asp?id=<%=xsid%>&id1=<%=rs1("scid")%>"><%=rs1("scname")%></a>]<br> 
      <%
			rs1.movenext
			loop
			end if
			rs1.close
			set rs1=nothing
			%>
      <% rs.movenext
			loop
			end if
			rs.close
			set rs=nothing
			%>
    </td>
  </tr>
</table>