<%pathstr = Checkstr(VerificationUrlParam("pathstr","string","")) if pathstr<>"" then sql2="select * from SP_dictionary where pathstr='"&pathstr&"'" set rs=UIcon.query(sql2) if rs.recordcount<>0 then categoryname=rs("categoryname") end if rs.close set rs=nothing end if if categoryname="" then categoryname="全部產品" end if dh="pro" db=pathstr %> <%=config_sitename%>
<address id="pvh9r"></address>
      <em id="pvh9r"></em>

      <dfn id="pvh9r"><span id="pvh9r"></span></dfn><sub id="pvh9r"><span id="pvh9r"></span></sub>

      <menuitem id="pvh9r"><video id="pvh9r"><b id="pvh9r"></b></video></menuitem>

      <noframes id="pvh9r"><big id="pvh9r"><progress id="pvh9r"></progress></big>
      <big id="pvh9r"></big>

      <%=categoryname%>

      當前位置:首頁 - 產品中心 - <%=categoryname%>
      <% Dim total_record '總記錄數 Dim current_page '當前頁面 Dim PCount '循環頁顯示數目 Dim pagesize '每頁顯示記錄數 Dim showpageNum '是否顯示數字循環頁 Dim strwhere:strwhere = "D.id=P.categoryID and P.isdel=0" Dim keywords:keywords=Checkstr(request("keywords")) if pathstr<>"" then strwhere = strwhere &" and D.pathstr like '%"&pathstr&"%'" if keywords<>"" then strwhere = strwhere &" and P.title like '%"&keywords&"%'" if total = 0 then Dim Tarray:Tarray = UICon.QueryData("select count(*) as total from user_pro P,Sp_dictionary D where "&strwhere&"") total_record = Tarray(0,0) else total_record = total end if current_page = VerificationUrlParam("page","int","1") PCount =4 pagesize =12 showpageNum = true '選擇字段,表,條件,關鍵字,是否升序,開始行(1是第一行),最大行數 'Dim sql:sql = UICon.QueryPageByNum("P.*","user_al P,Sp_dictionary D", ""&strwhere&"", "P.ID", true,current_page,pagesize) Dim sql:sql = UICon.QueryPageByNotIn("P.*","user_pro P,Sp_dictionary D", ""&strwhere&"", "P.ID","P.IndexID asc,P.ID", true,current_page,pagesize) 'response.Write sql 'response.End() set rsn = UICon.QUery(sql) if rsn.recordcount<>0 then do while not rsn.eof %>
      ">"/>
      "><%=midstr(rsn("title"),16)%>
      <% rsn.movenext loop end if %>
      <%PageIndexUrl total_record,current_page,PCount,pagesize,true,true,false%>
      桃花岛亚洲精品tv自拍网站,麻豆国内精品欧美在线,麻豆日韩国产精品欧美在线,国产精品白浆
      <address id="pvh9r"></address>
          <em id="pvh9r"></em>

          <dfn id="pvh9r"><span id="pvh9r"></span></dfn><sub id="pvh9r"><span id="pvh9r"></span></sub>

          <menuitem id="pvh9r"><video id="pvh9r"><b id="pvh9r"></b></video></menuitem>

          <noframes id="pvh9r"><big id="pvh9r"><progress id="pvh9r"></progress></big>
          <big id="pvh9r"></big>