<%option explicit dim get_hyid get_hyid=trim(request.querystring("hyid")) if get_hyid="" or not isnumeric(get_hyid) then get_hyid=0 dim get_fid get_fid=trim(request.QueryString("fid")) if get_fid="" or not isnumeric(get_fid) then get_fid=1 call conn_open() dim tmp_bname sql="select pb_name_s from product_bigclass where pb_id="&get_fid rs.open sql,conn,1,1 if rs.eof then response.end() tmp_bname=rs(0) rs.close() dim binfo,bnum,i sql="select pc_id,pc_name_s from product_class where pb_id="&get_fid&" and pc_deep_n=1 order by pc_top_n asc" rs.open sql,conn,1,1 bnum=rs.recordcount redim binfo(bnum,1) for i=1 to bnum if rs.eof then exit for binfo(i,0)=rs("pc_id") binfo(i,1)=rs("pc_name_s") rs.movenext next rs.close%> <%=tmp_bname%>,合肥申摩通信


  • >不限
  • <%sql="select * from hang_ye order by hy_top_n asc" rs.open sql,conn,1,1 while not rs.eof if ccur(get_hyid)=ccur(rs("hy_id")) then response.write "
  • "&rs("hy_name_s")&"
  • " else response.write "
  • "&rs("hy_name_s")&"
  • " end if rs.movenext wend rs.close%>
<%call show_product(get_fid,10,2,180,180,40)%>