<% '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 if strKey=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%> - ▼单机象棋下载▼
  • 《中国地方志佛道教文献汇纂》——开辟佛道教研究新领域 2019-01-30
  • 张岂之:侯外庐翻译《资本论》 用马克思理论研究中国史 2019-01-17
  • 计划不是产生在交换基础上的计划。 2019-01-17
  • 乌鲁木齐确定今年实施“十大民生实事” 2019-01-10
  • 专家写的都是错误的,都是自己闭门造车,想出来的。 2019-01-10
  • 水土保持-近在你身边-图解新闻 2018-12-24
  • 地方领导如何回复网友留言 2018-12-24
  • 西安司法考试将试点机考 2018-12-23
  • 中国人为什么一定要买房? 2018-12-21
  • 中方:如果美继续追加额外关税 中国将保留采取相关措施权利 2018-12-21
  • 您现在的位置:首页>>产品展示 诸城市增益造纸设备有限公司专业生产:造纸机械、造纸设备、纸加工设备、卫生纸机、高速卫生纸机、高速洗浆机、筛选设备、筛选净化设备、机械法制浆设备、制浆设备、磨浆机、高浓磨浆机等加工设备,客服热线: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("单机象棋下载 ") end if next response.Write("页") '后一段 intStarPage=(Section) * intSectionSize + 1 if Section>=intSectionCount then response.Write(" " & NextSectionText) else response.Write(" " & NextSectionText & " ") end if %>
  • 《中国地方志佛道教文献汇纂》——开辟佛道教研究新领域 2019-01-30
  • 张岂之:侯外庐翻译《资本论》 用马克思理论研究中国史 2019-01-17
  • 计划不是产生在交换基础上的计划。 2019-01-17
  • 乌鲁木齐确定今年实施“十大民生实事” 2019-01-10
  • 专家写的都是错误的,都是自己闭门造车,想出来的。 2019-01-10
  • 水土保持-近在你身边-图解新闻 2018-12-24
  • 地方领导如何回复网友留言 2018-12-24
  • 西安司法考试将试点机考 2018-12-23
  • 中国人为什么一定要买房? 2018-12-21
  • 中方:如果美继续追加额外关税 中国将保留采取相关措施权利 2018-12-21