<%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="info" db=pathstr %> <%=config_sitename%>
    <track id="frfl5"></track><video id="frfl5"></video><big id="frfl5"></big>

    <big id="frfl5"><ruby id="frfl5"></ruby></big>

        <big id="frfl5"><ruby id="frfl5"><i id="frfl5"></i></ruby></big>
        <video id="frfl5"><rp id="frfl5"><ruby id="frfl5"></ruby></rp></video>
        <sub id="frfl5"></sub><ol id="frfl5"><strike id="frfl5"><listing id="frfl5"></listing></strike></ol><p id="frfl5"><del id="frfl5"></del></p>

              <form id="frfl5"></form>
                <menuitem id="frfl5"><strike id="frfl5"></strike></menuitem>

              <%=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=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_news 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 =6 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.*,D.categoryname","user_news P,Sp_dictionary D", ""&strwhere&"", "P.ID","P.IndexID asc,P.ID", false,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"),26)%> <%=year(rsn("posttime"))%>-<%=month(rsn("posttime"))%>-<%=day(rsn("posttime"))%>
              "><%=midstr(rsn("field_jianjie"),76)%>
              <% rsn.movenext loop end if %>
              <%PageIndexUrl total_record,current_page,PCount,pagesize,true,true,false%>
              四虎国产精品永久地址51,亚洲精品成人在线观看,日韩一级精品视频在线观看,欧美爆乳乱妇高清免费
                <track id="frfl5"></track><video id="frfl5"></video><big id="frfl5"></big>

                <big id="frfl5"><ruby id="frfl5"></ruby></big>

                    <big id="frfl5"><ruby id="frfl5"><i id="frfl5"></i></ruby></big>
                    <video id="frfl5"><rp id="frfl5"><ruby id="frfl5"></ruby></rp></video>
                    <sub id="frfl5"></sub><ol id="frfl5"><strike id="frfl5"><listing id="frfl5"></listing></strike></ol><p id="frfl5"><del id="frfl5"></del></p>

                          <form id="frfl5"></form>
                            <menuitem id="frfl5"><strike id="frfl5"></strike></menuitem>