<% response.buffer=true %> <% ' 文件名:colist.asp ' 功能:行业小类列表 %> <% strclass="select * from industryclass where industrytypeid=1" set rsclass= Conn.Execute(strclass) %> 欢迎进入科迅电子电器有限公司主页--企业名录--行业分类
     
     
科迅首页 信息平台 产品介绍 在线订购 企业服务
 
 
<% If Not rsclass.EOF then do while not rsclass.EOF strcount="select count(company.userid) as num from user,company where user.userid=company.userid and user.industrytypeid=1 and user.industryclassid="&rsclass("industryclassid") set rscount= Conn.Execute(strcount) %> <% rsclass.MoveNext if not rsclass.eof then strcount="select count(company.userid) as num from user,company where user.userid=company.userid and user.industrytypeid=1 and user.industryclassid="&rsclass("industryclassid") set rscount= Conn.Execute(strcount) %> <% rsclass.MoveNext end if if not rsclass.eof then strcount="select count(company.userid) as num from user,company where user.userid=company.userid and user.industrytypeid=1 and user.industryclassid="&rsclass("industryclassid") set rscount= Conn.Execute(strcount) %> <% rsclass.MoveNext end if %> <%Loop Else %> <%End IF%>
"><%=rsclass("industryclass")%>(<%=rscount("num")%>)
"><%=rsclass("industryclass")%>(<%=rscount("num")%>)
"><%=rsclass("industryclass")%>(<%=rscount("num")%>)
该行业大类中不包含行业小类!
返回
<%Refer=Request.ServerVariables("HTTP_REFERER")%>
<% set rsUser = nothing Conn.close set Conn = nothing %>
 
 
建议使用IE5.0浏览器、分辨率800*600以上观看  
科迅电子电器有限公司 版权所有
Copyright (C) 2002 Kesun All rights reserved