<% strCurrMenu="15424" ThisPage=request.ServerVariables("URL") %> <% strClassName=GetVariable("classname") if strClassName="" then strClassName="All products" end if strQuery="" strClass=GetVariable("class") if strClass<>"" then SourCode=conn.execute("Select c_code From web_product_class Where mn_id=" & strCurrMenu & " and id="&strClass)(0) strQuery=strQuery & " And c_code Like '" & SourCode &"%'" end if strKey=GetVariable("key") if strKey<>"" then strQuery=strQuery & " And (p_name Like '%" & strKey & "%' Or p_detail Like '%" & strKey & "%') " strClassName="Search:" & strKey end if strPrice1=GetVariable("price1") if strPrice1<>"" then strQuery=strQuery & " And p_price>=" & strPrice1 strClassName=strClassName & "  The lowest price " & strPrice1 end if strPrice2=GetVariable("price2") if strPrice2<>"" then strQuery=strQuery & " And p_price<=" & strPrice2 strClassName=strClassName & "  Highest price " & strPrice1 end if %> <% '读取产品展示的属性,以确定显示那个字段 showClass=GetKey("showClass",WebUserID,"product_" & strCurrMenu ) showPrice=GetKey("showPrice",WebUserID,"product_" & strCurrMenu ) showSize=GetKey("showSize",WebUserID,"product_" & strCurrMenu ) showSymbol=GetKey("showSymbol",WebUserID,"product_" & strCurrMenu ) showFace=GetKey("showFace",WebUserID,"product_" & strCurrMenu ) showShop=GetKey("showShop",WebUserID,"product_" & strCurrMenu ) showDetail=GetKey("showDetail",WebUserID,"product_" & strCurrMenu ) %> Rivet|Half Rivet|Color core pulling rivets|Shen first core pulling rivets|Lantern - core pulling rivets|Closed core pulling rivets|Open-core pulling rivets|Open-shaped rim of their hats core pulling rivets|Rafah flowers core pulling rivets|Drawing-core pulling rivets|Double drum-core pulling rivets|Stamping wires-Foshan Jiaguang Hardware Factory
Rivet|Half Rivet|Color core pulling rivets|Shen first core pulling rivets|Lantern - core pulling rivets|Closed core pulling rivets|Open-core pulling rivets|Open-shaped rim of their hats core pulling rivets|Rafah flowers core pulling rivets|Drawing-core pulling rivets|Double drum-core pulling rivets|Stamping wires-Foshan Jiaguang Hardware Factory
 Company
 Culture
 Maung plant
 Certificate
Rivet|Half Rivet|Color core pulling rivets|Shen first core pulling rivets|Lantern - core pulling rivets|Closed core pulling rivets|Open-core pulling rivets|Open-shaped rim of their hats core pulling rivets|Rafah flowers core pulling rivets|Drawing-core pulling rivets|Double drum-core pulling rivets|Stamping wires-Foshan Jiaguang Hardware Factory
<% '开始输出分类 strcode="" for i=1 to Len(SourCode) \ 4 strcode=strcode&" or c_code like '"&left(SourCode,i*4)&"____'" next if strcode<>"" then strcode="(1<>1"&strcode&" or Len(c_code)=4)" else strcode=" Len(c_code)=4" end if strSQL="Select * From v_web_product Where mn_id=" & strCurrMenu & strQuery & " Order by p_code,ID Desc" 'response.Write(strsql) Set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 for i=1 to rs.recordcount Level=(Len(rs("c_code"))/4-1)*3 %> <% rs.movenext next %>
 <% If Len(rs("c_code"))>4 Then Response.Write "├" Response.Write String(Level,"-") %>&mnid=<%=strCurrMenu%>&classname=<%=trim(rs("c_name"))%>"><%=trim(rs("c_name"))%>
Rivet|Half Rivet|Color core pulling rivets|Shen first core pulling rivets|Lantern - core pulling rivets|Closed core pulling rivets|Open-core pulling rivets|Open-shaped rim of their hats core pulling rivets|Rafah flowers core pulling rivets|Drawing-core pulling rivets|Double drum-core pulling rivets|Stamping wires-Foshan Jiaguang Hardware Factory
Rivet|Half Rivet|Color core pulling rivets|Shen first core pulling rivets|Lantern - core pulling rivets|Closed core pulling rivets|Open-core pulling rivets|Open-shaped rim of their hats core pulling rivets|Rafah flowers core pulling rivets|Drawing-core pulling rivets|Double drum-core pulling rivets|Stamping wires-Foshan Jiaguang Hardware Factory
 
Your Position: > Products  >  <%=strClassName%>
<% strSQL="Select * From v_web_product Where mn_id=" & strCurrMenu & strQuery & " Order by p_code,ID Desc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 '分page显示初始化 page=GetVariable("page") if page="" then page=1 else page=Cint(page) end if Section=GetVariable("section") if Section="" then Section=1 else Section=Cint(Section) end if '变量赋值 intPageSize=6 'Page shows记录数 intSectionSize=5 '多少page为一段,像GOOGLE一样 PrevSectionText="7" '上一段的链接文字 NextSectionText="8" '下一段的链接文字 PrevPageText="3" '上page的链接文字 NextPageText="4" '下page的链接文字 strPageUrl="?class=" & GetVariable("class") & "&key=" & GetVariable("key") & "&price1=" & GetVariable("price1") & "&price2=" & GetVariable("price2") rs.pagesize=intPageSize intCount=rs.RecordCount intPageCount=rs.pagecount intSectionCount=(intPageCount - 1) \ intSectionSize + 1 if intCount>0 then rs.AbsolutePage=page end if %>
<% '循环输出 for i=1 to (intPageSize + 1) \ 2 if rs.eof then exit for %> <% for j=1 to 2 if rs.eof then exit For %> <% rs.movenext next %>
<%if showClass<>"none" then %> <%end if%> <%if showSymbol<>"none" then %> <%end if%> <%if showFace<>"none" And showFace<>"Null" then %> <%end if%> <%if showSize<>"none" then %> <%end if%> <%if showPrice<>"none" then %> <%end if%> <%if showShop<>"none" then %> <%end if%>
&mnid=<%=strCurrMenu%>&classname=<%=trim(rs("c_name"))%>">" width="229" border="0" />
<%if showDetail<>"none" then %> &mnid=<%=strCurrMenu%>&classname=<%=trim(rs("c_name"))%>&uppage=<%=ThisPage%>"><%=trim(rs("p_name"))%> <%else%> <%=trim(rs("p_name"))%> <%end if%>
 Category: <%=trim(rs("c_name"))%>
 No.:<%=trim(rs("p_symbol"))%>
   
<% next %>
A total of<%=intCount%>Records,<%=intPageCount%>page,Current page<%=Page%>,Page shows<%=intPageSize%>Records <% '计算每一段的开始page intStarPage=(Section-2) * intSectionSize + 1 '前一段 if Section<=1 then response.Write(PrevSectionText & " ") else response.Write("" & PrevSectionText & " ") end if '显示page码列表 response.Write("No.") intStarPage=(Section-1) * intSectionSize + 1 for p=intStarPage to intStarPage + intSectionSize - 1 if p > intPageCount then exit for if p=page then response.Write("[" & p & "] ") else response.Write("[" & p & "] ") end if next response.Write("page") '后一段 intStarPage=(Section) * intSectionSize + 1 if Section>=intSectionCount then response.Write(" " & NextSectionText) else response.Write(" " & NextSectionText & " ") end if %>
 
Rivet|Half Rivet|Color core pulling rivets|Shen first core pulling rivets|Lantern - core pulling rivets|Closed core pulling rivets|Open-core pulling rivets|Open-shaped rim of their hats core pulling rivets|Rafah flowers core pulling rivets|Drawing-core pulling rivets|Double drum-core pulling rivets|Stamping wires-Foshan Jiaguang Hardware Factory
      The plantProfessional production:RivetHalf RivetColor core pulling rivetsShen first core pulling rivetsLantern - core pulling rivetsClosed core pulling rivetsOpen-core pulling rivetsOpen-shaped rim of their hats core pulling rivetsRafah flowers core pulling rivetsDrawing-core pulling rivetsDouble drum-core pulling rivetsStamping wiresAnd so on.
    Welcomes domestic and overseas correspondence in business negotiations.
 
 
Rivet|Half Rivet|Color core pulling rivets|Shen first core pulling rivets|Lantern - core pulling rivets|Closed core pulling rivets|Open-core pulling rivets|Open-shaped rim of their hats core pulling rivets|Rafah flowers core pulling rivets|Drawing-core pulling rivets|Double drum-core pulling rivets|Stamping wires-Foshan Jiaguang Hardware Factory