<% 'strParent="42" if request.QueryString("parent")<>"" And request.QueryString("id")<>"" then strParent=request.QueryString("parent") strid=request.QueryString("id") sql1="Select c_name From product_class Where id ="&strid Set rs1=Server.CreateObject("ADODB.RecordSet") rs1.open sql1,conn,1,1 title=rs1("c_name") ElseIf request.QueryString("parent")<>"" And request.QueryString("id")="" then strParent=request.QueryString("parent") if strparent = 153 then title = "和记娱乐推薦設備" else sql2="Select c_name From product_class Where id ="&strParent Set rs2=Server.CreateObject("ADODB.RecordSet") rs2.open sql2,conn,1,1 title=rs2("c_name") end if Else strParent="115" title="產品展示" End If %> <%strQuery="" if strid<>"" then 'strQuery=strQuery & " And p_class=" & Cint(strid) strClassSet=findsub(strid,"product_class",1) strQuery=strQuery & " And p_class In " & strClassSet else if strParent<>"" then 'strQuery=strQuery & " And p_class=" & Cint(strParent) strClassSet=findsub(strParent,"product_class",1) strQuery=strQuery & " And p_class In " & strClassSet end if end ifstrKey=request.QueryString("key") if strKey<>"" then strQuery=strQuery & " And (p_name Like '%" & strKey & "%' Or p_detail Like '%" & strKey & "%') " strClassName="搜索:" & strKey end if strWeight=request.querystring("weight") if strWeight<>"" then strQuery=strQuery & " And p_weight= '"&strWeight&"'" 'strClassName=strClassName & strKey end if 'response.Write(strQuery) strPageUrl="?class=" & request.QueryString("class") & "&key=" & request.QueryString("key") & "&parent=" & strParent & "&weight=" & strWeight%><%=title%>-諸城市和记娱乐造紙設備有限公司
您現在的位置:首頁>>產品展示 <>諸城市和记娱乐造紙設備有限公司專業生產:造紙機械、造紙設備、紙加工設備、衛生紙機、高速衛生紙機、高速洗漿機、篩選設備、篩選淨化設備、機械法製漿設備、製漿設備、磨漿機、高濃磨漿機等加工設備,客服熱線:0536-6066260 6065123
產品展示
<% strSQL="Select * From product_class Where c_parent=0 order by c_index" Set rsClass=Server.CreateObject("ADODB.RecordSet") rsClass.open strSQL,conn,1,1 For i=1 to rsClass.recordcount %> <% if strParent=Trim(rsClass("id")) then strParentName=Trim(rsClass("c_name")) %> <% 'strSQL="Select * From product Where p_class=" & strParent & " order by p_code,id Desc" strSQL="Select * From product_class Where c_Parent=" & strParent & " order by c_index" Set rsClassSub=Server.CreateObject("ADODB.RecordSet") rsClassSub.open strSQL,conn,1,1 For j=1 to rsClassSub.recordcount %> <% if strid=Trim(rsClassSub("id")) then strParentName=Trim(rsClassSub("c_name")) end if %> <% rsClassSub.movenext Next %> <% End if %> <% rsClass.movenext Next %>
       " class="wi4" ><%=rsClass("c_name")%>
       &id=<%=rsClassSub("id")%>" > <%=rsClassSub("c_name")%>
 
<%=strParentName%>:  
<% strSQL="Select * From product Where 1=1 " & strQuery & " Order by ID Desc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 '分頁顯示初始化 page=request.QueryString("page") if page="" then page=1 else page=Cint(page) end if Section=request.QueryString("section") if Section="" then Section=1 else Section=Cint(Section) end if '變量賦值 intPageSize=20 '每頁顯示記錄數 intSectionSize=4 '多少頁為一段,像GOOGLE一樣 PrevSectionText="7" '上一段的鏈接文字 NextSectionText="8" '下一段的鏈接文字 PrevPageText="3" '上頁的鏈接文字 NextPageText="4" '下頁的鏈接文字 strPageUrl="?class=" & request.QueryString("class") & "&key=" & request.QueryString("key") & "&parent=" & strParent 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 if rs.eof then exit for %> <% if (i mod 4)=0 then response.Write "" end if rs.movenext next %>
&class=<%=trim(rs("p_class"))%>" >" width="160" height="135" border="0" />

&class=<%=trim(rs("p_class"))%>" class="size35" >[<%=trim(rs("p_name"))%>]
共有<%=intCount%>條記錄,分<%=intPageCount%>頁,當前頁<%=Page%>,每頁顯示<%=intPageSize%>條記錄 <% '計算每一段的開始頁 intStarPage=(Section-2) * intSectionSize + 1 '前一段 if Section<=1 then response.Write(PrevSectionText & " ") else response.Write("" & PrevSectionText & " ") end if '顯示頁碼列表 response.Write("第") 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("頁") '後一段 intStarPage=(Section) * intSectionSize + 1 if Section>=intSectionCount then response.Write(" " & NextSectionText) else response.Write(" " & NextSectionText & " ") end if %>