<% 'strParent="42" if request.QueryString("parent")<>"" then strParent=request.QueryString("parent") else strParent="115" End if if request.QueryString("id")<>"" then strid=request.QueryString("id") else strid=strParent 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 %> ▼单机象棋下载▼
<% '从这开始读数据 set rs8=server.CreateObject("Adodb.recordset") strSQL="Select top 6 * From news Where nAudit<>0 and nClass=14 Order by ID Desc" rs8.open strSQL,conn,1,1 ' response.Write rs.recordcount ' response.End do while not rs8.eof %> <% rs8.movenext loop rs8.close %>
  ·" target="_blank" title="<%=trim(rs8("nTitle"))%>"> <% strTitle=trim(rs8("nTitle")) wLen=17 if len(strTitle)>wLen then strTitle=Left(strTitle,wLen-1) & ".." end if response.Write(strTitle) %>
<% 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")%>
诸城市增益造纸设备有限公司
地址: 山东省诸城市外贸街9号
邮编: 262200
电话: 0536-6066260 6065123
传真: 0536-6065719
E-mail: zengyishebei@163.com
  增益造纸推荐设备 >>更多
<% strSQL="Select Top 15 * From product Where p_class=153 Order by p_code,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=3 '每页显示记录数 intSectionSize=1 '多少页为一段,像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+1)\1 if rs.eof then exit for %>
<% if Not rs.eof then %>
&class=<%=trim(rs("p_class"))%>" target="_blank">" width="130" height="110" border="0">
&class=<%=trim(rs("p_class"))%>" target="_blank" class="wi1" >[<%=trim(rs("p_name"))%>]
<% rs.movenext End if %>
<% if Not rs.eof then %>
&class=<%=trim(rs("p_class"))%>" target="_blank">" width="130" height="110" border="0">
&class=<%=trim(rs("p_class"))%>" target="_blank" class="wi1" >[<%=trim(rs("p_name"))%>]
<% rs.movenext End if %>
<% if Not rs.eof then %>
&class=<%=trim(rs("p_class"))%>" target="_blank">" width="130" height="110" border="0">
&class=<%=trim(rs("p_class"))%>" target="_blank" class="wi1" >[<%=trim(rs("p_name"))%>]
<% rs.movenext End if %>
<% if Not rs.eof then %>
&class=<%=trim(rs("p_class"))%>" target="_blank">" width="130" height="110" border="0">
&class=<%=trim(rs("p_class"))%>" target="_blank" class="wi1" >[<%=trim(rs("p_name"))%>]
<% rs.movenext End if %>
<% if Not rs.eof then %>
&class=<%=trim(rs("p_class"))%>" target="_blank">" width="130" height="110" border="0">
&class=<%=trim(rs("p_class"))%>" target="_blank" class="wi1" >[<%=trim(rs("p_name"))%>]
<% rs.movenext End if %>
<% Next %>
<% '从这开始读数据 set rs8=server.CreateObject("Adodb.recordset") strSQL="Select top 7 * From news Where nAudit<>0 and nClass=10 Order by ID Desc" rs8.open strSQL,conn,1,1 ' response.Write rs.recordcount ' response.End do while not rs8.eof %> <% rs8.movenext loop rs8.close %>
     " target="_blank" title="<%=trim(rs8("nTitle"))%>"> <% strTitle=trim(rs8("nTitle")) wLen=24 if len(strTitle)>wLen then strTitle=Left(strTitle,wLen-1) & ".." end if response.Write(strTitle) %>
 
单机象棋下载
  诸城增益造纸设备有限公司(原诸城市造纸设备制造厂)坐落于著名的“縯o纭鄙蕉畛?。公司创建?994年。公司是国内生产制浆造纸机械及环保设备为主的高新企业,公司占地2万平方米,下设高速纸机制造部、制浆设备制造部、环保设备制造部三个分支机构,具有独立设计开发、制造销售和安装调试等综合服务能力。
     公司拥有:废纸箱(0CC)成套处理系统及配套工艺技术、废报纸、废杂志(ONP、OMG)成套废纸脱墨处理系统及配套工艺技术、化学浆(CTMP)、机械浆(TMP)成套制浆设备及配套工艺技术、各种浆料的筛选、洗涤、净化、浓缩及磨浆成套设备、污水处理系统及配套工...    [详细>>]