<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim rs,sql dim currentpage,p_count,n_count dim sc_id,key dim c_name dim linkstr key=request("key") sc_id=request("c_id") stype=request("type") if not isnumeric(sc_id) or sc_id="" then sc_id=0 if not isnumeric(stype) or stype="" then stype=0 linkstr="&c_id="&sc_id&"&key="&key&"&type="&stype set rs=server.CreateObject("adodb.recordset") %> Yuyao Shunlong Optronics Technology Co.,Ltd

Product CategoryProduct Category

<% dim pcnum sql="select count(*) from P_class where child>0" set rs=conn.execute(sql) pcnum=rs(0) rs.close %>
    <% dim l_num,child dim rs_pl,rs_pl2,rs_pl3 dim sql_pl,sql_p dim P_ID2,c_id2 P_ID2=request.QueryString("P_ID") if P_ID2="" then P_ID2=0 sql_pl="select C_ID from P_product where P_ID="&P_ID2 set rs_pl=conn.execute(sql_pl) if rs_pl.eof then c_id2=request.QueryString("c_id") else c_id2=rs_pl(0) end if rs_pl.close if c_id2="" then c_id2=0 dim PathID_List set rs_pl=conn.execute("select parentPath from P_class where classId="&c_id2) if not rs_pl.eof then PathID_List=rs_pl(0)&","&c_id2 else PathID_List=c_id2 end if rs_pl.close l_num=0 sql_pl="select classId,class,child from P_class where depth=0 order by orderId" set rs_pl=conn.execute(sql_pl) do while not rs_pl.eof child=rs_pl("child") if cint(child)>0 then l_num=l_num+1 %>
  • <%if cint(child)>0 then%><%=cutstr(rs_pl(1),28)%>
      "> <%sql_pl="select classId,class,parentId,child from P_class where parentId="&rs_pl(0)&" order by orderId" set rs_pl2=conn.execute(sql_pl) do while not rs_pl2.eof %>
    • <%=cutstr(rs_pl2(1),26)%>
      • <% rs_pl2.movenext loop rs_pl2.close %>
    <%else%> <%=cutstr(rs_pl(1),26)%> <%end if%>
  •  
    • <% rs_pl.movenext loop rs_pl.close set rs_pl=nothing set rs_p=nothing %>
ShunLong Optronics Technology Co.,Ltd.
<% dim proPic,c_ids ii=0 sql="select * from P_product where 1=1" if cint(sc_id)>0 then c_ids=GetRelatedID(sc_id) sql=sql&"and C_ID in("&c_ids&")" end if key=replace(key,"Keyword","") if key<>"" then select case cint(stype) case 1 sql=sql&" and P_Name like '%"&key&"%'" case 2 sql=sql&" and P_No like '%"&key&"%'" case 3 sql=sql&" and P_Type like '%"&key&"%'" case 4 sql=sql&" and P_SPF like '%"&key&"%'" case 5 sql=sql&" and P_Factory like '%"&key&"%'" case else sql=sql&" and P_Name like '%"&key&"%'" end select end if sql=sql&" order by orderId asc" rs.open sql,conn,1,1 if rs.eof then %> <% else ps=9 rs.pagesize=ps currentpage=request("page") if currentpage="" then currentpage=1 if currentpage<1 then currentpage=1 if cint(currentpage)>cint(rs.pagecount) then currentpage=rs.pagecount rs.absolutepage=currentpage p_count=rs.pagecount n_count=rs.recordcount %>
<% ii=0 do while not rs.eof proPic=rs("P_sPic") if proPic="" or isnull(proPic) then proPic=rs("P_Pic") ii=ii+1 %>

"><%=rs("P_Name")%>

">
<% if cint(ii)>0 and (ii mod 3)=0 then response.Write("
") If cint(ii)>=cint(ps) Then Exit Do rs.movenext loop rs.close set rs=nothing %>
<%end if%>
<%=currentpage%> /All of <%=p_count%> pages    Home | First | Next | Last >><%call showpage(currentpage,p_count,5,linkstr)%>