欢迎访问中国经贸网

<%@language=VBScript codepage=950%> 欢迎访问中国经贸网

List programme

<% dim subcat(50) set rs = Server.CreateObject("ADODB.RECORDSET") sql_work= "SELECT * from pro_tree where type_id1=112 order by type_order asc" rs.Open sql_work , conn ,1,1 i=0 while (not rs.eof) set rs_cat = Server.CreateObject("ADODB.RECORDSET") sql_cat = "SELECT * from pro_tree where type_id1=" & rs.Fields("type_id") & " order by type_order asc" rs_cat.Open sql_cat , conn ,1,1 ' if (not rs_cat.eof) or (rs("type_orderby")=1) then %> <% while not rs_cat.EOF and not rs_cat.BOF set rs_3 = Server.CreateObject("ADODB.RECORDSET") sql_3 = "SELECT * from pro_tree where type_id1=" & rs_cat("type_id") & " order by type_order asc" rs_3.Open sql_3, conn ,1,1 %> <% rs_cat.movenext wend %> <% ' end if rs_cat.Close set rs_cat = nothing rs.movenext wend rs.close set rs=nothing %>


	=<%=rs("type_id") %>"><%=rs("text_en") %>
	<% if not rs_3.eof then response.write "" & rs_cat("text_en") & "" else %> &cat_name=<%=rs_cat("text_en")%>" > <%=rs_cat("text_en")%> <% subcat(i)=rs_cat("type_id") i=i+1 end if rs_3.close set rs_3=nothing %>

<% set rs_pro = Server.CreateObject("ADODB.RECORDSET") if request("cat_id")<>"" then sql_pro= "SELECT * from model where model_categoryid=" & request("cat_id") & " order by model_order asc" elseif request("supcat_id")<>"" then sql_pro= "SELECT * from model where model_cat_high_id=" & request("supcat_id") & " order by model_categoryid,model_order asc" else if subcat(0)<>"" then sql_pro= "SELECT * from model where model_categoryid=" & subcat(0) for i=1 to 50 if subcat(i)<>"" then sql_pro= sql_pro & " or model_categoryid=" & subcat(i) end if next sql_pro= sql_pro & " order by model_categoryid,model_order asc" 'where model_categoryid=115 end if end if if sql_pro<>"" then rs_pro.Open sql_pro , conn ,1,1 rs_pro.pagesize=3 dim number_record,number_page,page_now,record_now number_record=rs_pro.recordcount number_page=rs_pro.pagecount page_now=rs_pro.absolutepage if request("page")<>"" then rs_pro.absolutepage=CInt(request("page")) else page_now=1 end if record_now=(page_now-1)*rs_pro.pagesize j=1 if not rs_pro.eof then while (j<=3) and (not rs_pro.eof) %>

<%=rs_pro("model_name") %>

<% if rs_pro("model_photo")<>"" then %>

" width="140" style="padding-left:15px; padding-top:10x" align="right" /> <% end if %> <%=rs_pro("model_details") %>

<% j=j+1 rs_pro.movenext wend else %>

Sorry,No product of this category now.

<% end if rs_pro.close set rs_pro=nothing %>

Sum<%=number_page %> Pages <% if request("page")>1 then select case mytype case 1 %> &cat_id=<%=request("cat_id") %>&cat_name=<%if request("cat_name")<>"" then response.write request("cat_name") else response.write "DC电源插座系列" %>&page=<%= request("page")-1 %>"> >Provious <% case else %> &cat_id=<%=request("cat_id") %>&cat_name=<%if request("cat_name")<>"" then response.write request("cat_name") else response.write "DC电源插座系列" %>&page=<%= request("page")-1 %>">Provious <% end select end if %> [ <% for j=1 to number_page response.write "" & j & "" & " | " next %> ] <% if ((request("page")="") or (CInt(request("page"))1) then select case mytype case 1 response.write "" case else response.write "" end select %> >Next <% end if %>

<% else %>

Sorry，No information now。

<% end if %>