<ruby id="hhlrb"></ruby>

    <nobr id="hhlrb"><span id="hhlrb"></span></nobr>
    <em id="hhlrb"></em>
      <em id="hhlrb"><em id="hhlrb"><pre id="hhlrb"></pre></em></em>

        <big id="hhlrb"></big>

          <i id="hhlrb"><em id="hhlrb"></em></i>

              <big id="hhlrb"></big>
              <big id="hhlrb"><video id="hhlrb"></video></big>

                       
                Home
                Profile
                Products
                Company Credit
                Quality inspection
                News
                Culture
                Customer Message
                Contacts
                中文版
                  Water service pipe fittings
                  Pumping station
                  Fire fighting water supply fittings
                  Well ring\Well cover
                 
                 

                <% '///////////////////////////////////////////////////////////////////////////////////////// '作 用:新聞標題列表 '注 意: ' 1、參數:標題長度TitleLen, 頁記錄Num, 頁列Cols, 日期格式DateSkins; ' 2、TitleLen,一個漢字為2字節,一個英文為1字節; ' 3、日期格式:格式1 2005年4月17日 格式2 2005-4-17 格式5 2005-04-17 ' 4、Num必須是Cols的公倍數 ' 5、模糊查詢時查詢文章標題和文章內容 '///////////////////////////////////////////////////////////////////////////////////////// Dim strUrl, TitleLen, Num, Cols, DateSkins strUrl = "newsinfo.asp" TitleLen = 54 Num = 15 Cols = 1 DateSkins = 2 SearchKeyword = Trim(Request("strKeyword")) SearchSelect = Trim(Request("strSelect")) %>
                <% SqlNewsList = " select ArtID, ArtTitle, ArtHits, ArtUpdateTime, ArtType from ArticleList00 " SqlNewsList = SqlNewsList + " where ArtID >= 1 " typeid = Trim(Request("typeid")) If IsNumeric(typeid) = True And Trim(typeid) <> "" Then SqlNewsList = SqlNewsList + " and ArtType = '"&typeid&"' " End If if SearchKeyword <> "" then SearchKeyword = Replace( SearchKeyword, "'", "" ) Select Case SearchSelect Case "0" SqlNewsList = SqlNewsList + " and ArtTitle like '%"&SearchKeyword&"%' " Case "1" SqlNewsList = SqlNewsList + " and ArtContent like '%"&SearchKeyword&"%' " Case Else SqlNewsList = SqlNewsList + " and ArtTitle & ArtContent like '%"&SearchKeyword&"%' " End Select End If SqlNewsList = SqlNewsList + " order by ArtRank " set RsNewsList = server.CreateObject("adodb.recordset") RsNewsList.open SqlNewsList, objConn, 1, 1 if RsNewsList.eof or RsNewsList.bof then Response.Write("


                No


                ") else RsNewsList.pagesize = Num page = request("page") If IsNumeric(page) = False Then page = 1 Else page = cint(page) End If if page < 1 then page = 1 if page > RsNewsList.pagecount then page = RsNewsList.pagecount RsNewsList.absolutepage = page j = RsNewsList.pagesize * ( page - 1) + i %> <% for RsNewsList_i = 1 to RsNewsList.pagesize / Cols %> <% for RsNewsList_j = 1 to Cols %> <% next %> <% if RsNewsList.eof then exit for next %>
                <% if not RsNewsList.eof then %>
                title="<% = Server.Htmlencode(RsNewsList("ArtTitle")) %>" target="_blank"> <% = gotTopic( RsNewsList("ArtTitle"), TitleLen )%> <% = GetCurrentDate(RsNewsList("ArtUpdateTime"),DateSkins)%>
                <% RsNewsList.movenext end if %>
                <% Call show_page( "form_list","",page,RsNewsList, "strKeyword#" & server.URLEncode((SearchKeyword)) & "#strSelect#" & server.URLEncode((SearchSelect)) ) %>
                <% end if RsNewsList.close set RsNewsList = nothing %>


                cangzhou yongxin Casting Co., Ltd 【All rights reserved】
                Add:Industrial Area, Botou City, Hebei Province Tel:0317-8196983 5561967 8196691
                Fax:0317-5561966 Post code:062150 Website:www.fagorpressurecookers.com E-mail:info@czxyzz.com
                亚洲精品无码第一页 黄片在线免费播放国语 亚洲中文字幕乱码少妇饥渴 亚洲特一级黄色电影