第
"&diye+1&"页 共"&zongye&"页 {$PageList}"
'response.write lists:response.End()
'第二步,生成页面
Set MakeSearch =New ACT_Code
TemplateContent = MakeSearch.LoadTemplate("/templets/searchlist.htm")
TemplateContent = MakeSearch.LabelReplaceAll(TemplateContent)
'TemplateContent = replace(TemplateContent,"{$hotkeyword}",GHS)
'TemplateContent = replace(TemplateContent,"{PageListStr}",Lists)
'Call MakeSearch.FSOSaveFile(TemplateContent,"KeywordMap/index.html")
Call MakeSearch.GetPageStr(lists, "index.html", TemplateContent,"KeywordMap/", True)
Set MakeSearch=Nothing
End Sub
Sub mkjs()
response.write "

正在更新数据!请稍候...
"&vbcrlf
response.write ""&vbcrlf
End sub
'###########################################
'#读取列表
'###########################################
Function List(str)
dim sql,rs11,rsl
Set RS=server.CreateObject("adodb.recordset")
sql = "select top 1 * from News_u_act where sekey_ACT = '"&str&"'"
RS.open(sql),conn,1,1
if not rs.eof then
SearchList = SearchList & "
"&rs("IntactTitle")&"
"
SearchList = SearchList & "
"&vbcrlf
SearchList = SearchList & "
"
SearchList = SearchList & "
日期:"&rs("UpdateTime")&" 来源:"&rs("CopyFrom")&" 关键字:"&keyword&""
SearchList = SearchList & "
"
SearchList = SearchList & "
【"&str&"】相关产品
"&ProList(str)&""
SearchList = SearchList & "
"&ReplaceNK(rs("Content"))&""
Else
Set rsl=server.CreateObject("adodb.recordset")
sql = "select top 20 FileName,intacttitle from News_u_act where intacttitle like '%"&str&"%' order by UpdateTime desc"
rsl.open(sql),conn,1,1
if not rsl.eof then
i=0
SearchList = SearchList & "
"
SearchList = SearchList & "
"
while not rsl.eof
i=i+1
SearchList = SearchList & "- "&rsl("intacttitle")&"
"&vbcrlf
if i mod 5 = 0 then SearchList = SearchList & ""&vbcrlf
rsl.movenext
wend
SearchList = SearchList & "
"
else
Set rs11=server.CreateObject("adodb.recordset")
sql = "select top 20 FileName,intacttitle from News_u_act order by rnd(id-Timer())"
rs11.open(sql),conn,1,1
if not rs11.eof then
i=0
SearchList = SearchList & "
"
SearchList = SearchList & "
"
end if
rs11.close
set rs11=nothing
end if
rsl.close
set rsl=nothing
end if
rs.close
set rs=nothing
List = SearchList
end Function
'###########################################
'#读取新闻列表
'###########################################
Function NewsList(str)
dim sql,rs11,newslists
Set RS=server.CreateObject("adodb.recordset")
sql = "select top 16 * from news_u_act where intacttitle like '%"&str&"%' order by updatetime desc,id desc"
RS.open(sql),conn,1,1
i=16
newslists = newslists & "
"
if not rs.eof then
while not rs.eof
i=i-1
newslists = newslists & "- ·"&GNCNA(rs("classid"))&""&replace(rs("intacttitle"),ucase(str),""&ucase(str)&"")&"
"&vbcrlf
rs.movenext
wend
end if
if i>0 then
Set rs11=server.CreateObject("adodb.recordset")
sql = "select top "&i&" * from news_u_act order by updatetime desc,id desc"
rs11.open(sql),conn,1,1
if not rs11.eof then
while not rs11.eof
newslists = newslists & "- ·"&GNCNA(rs11("classid"))&""&rs11("intacttitle")&"
"&vbcrlf
rs11.movenext
wend
end if
rs11.close
set rs11=nothing
end if
rs.close
set rs=nothing
newslists = newslists & "
"
NewsList = newslists
end Function
'###########################################
'#读取栏目
'###########################################
Function GCN(str)
GCN=conn.execute("select classename from class_act where classid='"&str&"'")(0)
GCN="/"&mid(GCN,1,instr(GCN,"/"))
end Function
'###########################################
'#读取栏目
'###########################################
Function GNCNA(str)
dim rs3242
set rs3242=conn.execute("select classename,classname from class_act where classid='"&str&"'")
if not rs3242.eof then
GNCNA="[
"&rs3242(1)&"]"
else
GNCNA=""
end if
end Function
'###########################################
'#热门搜索
'###########################################
Function GHS()
set rs=conn.execute("select top 4 * from search_Form_ACT order by hit_act desc,zhtime_act desc")
if not rs.eof then
while not rs.eof
GHS = GHS & "
"&rs("keyword_act")&" "
rs.movenext
wend
else
GHS = ""
end if
rs.close
set rs=nothing
end Function
'###########################################
'#读取相关产品
'###########################################
Function ProList(str)
dim pros
pros = "
"
ProList = pros
end Function
'###########################################
'#记取描述
'###########################################
Function SD(str)
if str="" then exit function
select case str
case "车床":SD="沈阳第一机床厂是中国最大规模的综合性车床制造厂.沈阳第一机床厂产品分为普通车床,数控车床和专用车床三大类,其中CAK系列数控车床产品被评为中国机械工业名牌产品.车床咨询热线400-6576-123"
case "数控车床":SD="沈阳第一机床厂是中国机械名牌数控车床开发制造基地.各种规格数控车床、卧式数控车床、立式数控车床在广大用户中享有盛誉,并以一流品质著称,曾多次被评为中国机械工业名牌产品.数控车床咨询热线400-6576-123"
case "普通车床":SD="沈阳第一机床厂是中国最大规模的普通车床制造厂;我国第一台普通车床生产厂.新型普通车床的床身宽于一般普通车床,具有较高的刚度,导轨面经中频淬火,经久耐磨.拨打咨询热线400-6576-123了解更多普通车床详细信息。"
case "机床":SD="沈阳第一机床厂我国最大规模的机床生产基地.主要产品:数控机床,普通机床,专用机床.2008年沈阳机床经济规模113亿元,机床产量2万台,海外市场收入1.5亿美元,沈阳第一机床厂为您提供最优机床产品400-6576-123"
case "数控机床":SD="倾力打造世界级数控机床品牌!沈阳机床集团连续三年数控机床产销量居世界第一.从自行研制生产中国第一台数控机床以来,沈阳机床始终致力于各种数控机床的研发与制造.以打造更优的数控机床为己任400-6576-123"
case "普通机床":SD="沈阳第一机床厂是中国最大规模的普通机床制造厂和国家级普通机床开发制造基地.以一流的质量和优质的服务闻名海内外.普通机床产品:普通卧式车床,摇臂钻床,铣镗床等.普通机床咨询热线:400-6576-123"
case "cnc机床":SD="沈阳一机是国家级CNC机床开发制造基地.CNC机床主要有数控车床,数控钻床,数控铣镗床,加工中心等.2008年沈阳机床销售突破113亿.数控机床(CNC机床)产量2万台,倾力打造世界级CNC机床品牌!"
case "沈阳机床":SD="沈阳机床集团于1995年通过对沈阳原三大机床厂资产重组而组建,是中国最大规模的综合性机床制造企业.沈阳机床优质产品是您理想的选择;沈阳机床销售团队为您提供专业的售前服务;沈阳机床服务人员为您提供及时、周到的售后服务。我们为您打造最优质的产品和最完善的服务."
case "沈阳机床厂":SD="沈阳机床厂是中国大规模的综合性机床制造厂和国家数控机床开发制造基地.沈阳机床产销量连续三年位居世界第一!沈阳机床厂拥有优质的产品;专业的销售团队和完善的售后服务.沈阳机床厂销售热线400-6576-123"
case "沈阳第一机床厂":SD="沈阳第一机床厂是中国最大规模的机床厂和国家数控机床开发制造基地.沈阳第一机床厂产销量居同行业首位!沈阳第一机床厂拥有优质的产品;专业的销售团队和完善的售后服务.沈阳第一机床厂热线400-6576-123"
case "沈阳机床集团":SD="沈阳机床集团是由沈阳原三大机床厂资产重组组建,是中国最大规模的综合性机床制造企业. 沈阳机床集团优质产品是您理想的选择;沈阳机床集团销售团队为您提供专业的售前服务;沈阳机床集团服务人员为您提供及时、周到的售后服务。我们为您打造最优质的产品和最完善的服务."
case "沈阳一机床":SD="沈阳一机床厂是中国最大规模的机床厂和国家数控机床开发制造基地.沈阳一机床厂产销量居同行业第一!沈阳一机床厂拥有优质的产品,专业的销售团队及完善的售后服务.沈阳一机床厂热线400-6576-123"
case "沈阳第一机床":SD="沈阳第一机床厂-沈阳第一机床厂是中国最大规模的机床厂和国家数控机床开发制造基地.沈阳第一机床厂产销量居同行业首位!沈阳第一机床厂拥有优质的产品,专业的销售团队和完善的售后服务.沈阳第一机床厂热线400-6576-123"
case "沈阳一机床厂":SD="沈阳一机床厂是中国最大规模的机床厂和国家数控机床开发制造基地. 沈阳第一机床厂产销量居同行业首位!沈阳一机床厂拥有优质的产品,专业的销售团队和完善的售后服务.沈阳一机床厂热线400-6576-123"
case "沈阳机床一厂":SD="沈阳机床一厂是中国最大规模的机床厂和国家数控机床开发制造基地.沈阳机床一厂产销量居同行业首位!沈阳机床一厂拥有优质的产品,专业的销售团队和完善的售后服务.沈阳机床一厂热线400-6576-123"
case "机床厂":SD="沈阳第一机床厂是中国最大规模的综合性机床厂,主要有普通车床,数控车床,专用机床、加工中心等产品.沈阳第一机床厂拥有拥有优质的产品,专业的销售团队和完善的售后服务.沈阳第一机床厂销售热线400-6576-123."
case "数控机床厂":SD="倾力打造世界级数控机床厂!沈阳第一机床厂是中国最大规模的数控机床厂,沈阳第一机床厂连续三年产销量居世界第一,并致力于数控机床的研发与制造.以打造顶级数控机床厂为己任,咨询热线400-6576-123"
case "数控车床厂":SD="倾力打造世界级数控车床厂!沈阳第一机床厂是中国最大规模的数控车床厂,沈阳第一机床厂连续三年产销量居同行业第一, 并致力于数控车床的研发与制造.以打造顶级数控车床厂为己任,咨询热线400-6576-123"
case "加工中心":SD="沈阳第一机床厂是中国机械名牌加工中心开发制造基地.各种车削中心、车铣中心类加工中心产品以一流品质著称,在广大用户中享有盛誉并多次评为中国机械工业名牌产品.加工中心热线400-6576-123"
case "摇臂钻床":SD="沈阳机床作为世界最大的摇臂钻床生产制造基地,具有五十四年的摇臂钻床开发制造的丰富经验,具备工艺独到的摇臂钻床制造流程与装备.摇臂钻床产品连续荣获国家质量金奖.摇臂钻床咨询热线:400-6576-123"
case "ca6140":SD="沈阳第一机床厂CA6140A新型普通车床是通过七十年经验升华而来的全新高效产品。CA6140A具有较高的刚度,导轨面经中类淬火,经久耐磨,功率利用率高.CA6140A咨询热线400-6576-123"
case "管螺纹车床":SD="沈阳第一机床厂生产的管螺纹车床被评为中国名牌产品.沈阳第一机床厂拥有专业的管螺纹车床销售团队及优质的管螺纹车床服务中心.为您提供更专业更周到的管螺纹车床信息及管螺纹车床产品400-6576-123."
case "机床配件":SD="沈阳机床一厂是大规模的机床配件制造厂.沈阳机床一厂建厂70余年以来不但为广大用户提供了数十万台机床产品,并且保证所有机床配件的正常供应,生产的机床配件深受广大用户的好评.各种机床配件以一流的品质著称.机床配件咨询热线024-25340888"
case "机床电器":SD="沈阳机床一厂建厂70余年以来不但为广大用户提供了数十万台机床产品,并且保证所有机床电器件的正常供应,生产的机床电器产品深受广大用户的好评.各种机床电器以一流的品质著称.机床配件咨询热线024-25340888"
case else:SD="沈阳第一机床厂"
end select
end function
Function ReplaceNK(Con)
if con = "" then exit function
dim kkkkrs,conKey
conKey = con
set kkkkrs=conn.execute("select * from newskey_Form_ACT")
if not kkkkrs.eof then
while not kkkkrs.eof
conKey = replace(conKey,kkkkrs("keyword"),"
"&kkkkrs("keyword")&"")
kkkkrs.movenext
wend
end if
kkkkrs.close
set kkkkrs = nothing
ReplaceNK = conKey
End Function
%>