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.czxyzz.com E-mail:info@czxyzz.com