球墨铸铁管件,球墨铸铁管,球墨铸铁井盖,K型T型球墨铸铁管件
       
网站首页
企业简介
产品展示
企业荣誉
检测设备
企业新闻
企业文化
客户留言
联系方式
English
球墨铸铁管件,球墨铸铁管,球墨铸铁井盖,K型T型球墨铸铁管件
  给水管件
  泵站管件
  消防给水配件
  井圈、井盖
 
 
球墨铸铁井盖 - 沧州永欣铸造有限公司

<% '///////////////////////////////////////////////////////////////////////////////////////// '作 用:新闻标题列表 '注 意: ' 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("


新闻资料整理中


") 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 %>


河北沧州永欣铸造有限公司 【版权所有】
地址:河北省泊头市工业园区 邮编:062150 电话:0317-8196983 5561967 8196691
传真:0317-5561966 网址:www.czxyzz.com E-mail:info@czxyzz.com  网站管理