1. <cite id="vaoe8"></cite>

             
      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.cdezs.cn E-mail:info@czxyzz.com
      成人在线无码,无码在线观看视频,国产精品无码AV,97午夜福利影视大全

        1. <cite id="vaoe8"></cite>