<% set rs=server.CreateObject("adodb.recordset") sql="select * from BigClass order by BigClassID asc" rs.open sql,conn,1,2 if rs.recordcount=0 then response.Write("暂无产品类别!") End If dim x x=1 do while not rs.eof temp=rs("BigClassName") etemp=rs("eBigClassName") %> <% x=x+1 rs.movenext loop rs.close set rs=nothing %>
   <%=temp %>
<% set rs1=server.CreateObject("adodb.recordset") sql1="select * from SmallClass where BigClassName='"&temp;&"' order by SmallClassID asc" rs1.open sql1,conn,1,2 if rs1.recordcount=0 then End If do while not rs1.eof temp1=rs1("SmallClassName") etemp1=rs1("eSmallClassName") %> <% rs1.movenext loop rs1.close set rs1=nothing %>
  <%=temp1 %>


下一页

版权所有:金华市求精铸件厂
地   址:浙江省金华市孝顺镇 联 系 人:胡峥、胡同兴
电   话:0579-83250938  82951156 传   真:0579-82950009
手   机:13905797128 邮政编码:321035
网  址:http://www.qiu-jing.com 电子信箱:[email protected]
         [email protected]
         [email protected]