<%thisclass="product"
thisid="default"
lineid=1
dim rs,classid,pid,keyword
pname="文章查询"
keyword=delhtml(trim(request("key")))
kid=trim(request("id"))
lt=trim(request("lt"))
if kid<>"" and keyword="" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select keyname,title from data_keyname where keyid="&kid&" ",conn,1,1
if rs.eof and rs.bof then
Response.Write " 对不起，没有找到你所查询的文章！返回首页=>>
"
Response.End()
else
keyword = trim(rs("keyname"))
title = trim(rs("title"))
end if
end if
if lt<>"" and keyword="" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select keyname,title from data_keyname where letter='"<&"' ",conn,1,1
if rs.eof and rs.bof then
Response.Write " 对不起，没有找到你所查询的文章！返回首页=>>
"
Response.End()
else
keyword = trim(rs("keyname"))
title = trim(rs("title"))
end if
end if
if keyword="" then
Response.Write("")
Response.End()
end if
if keyword<>"" then
if title<>"" then
title=title&"--"&sitename&pagename
else
title=replace(keyword," ","")&"--"&sitename&pagename
end if
else
title=pname&"--"&sitename&pagename
end if
keywords=keyword
Description=keyword&","&sitename
function productlist()'产品列表
keys=keyword
keys=replace(trim(fckey(keys))," "," ")
sql_where=keyword_sousuo("name,title,Description",keys)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from data_news where name<>'' and display=1 and "&sql_where&" order by tuijian desc,updatetime desc,id desc",conn,1,2
if not rs.eof then
PageSize=16
rs.PageSize=PageSize
recordcount=rs.recordcount
pagecount=rs.pagecount
'获得当前页码
if request("page") = "" then
page = 1
else
page = cint(request("page"))
if page > pagecount then page=pagecount
end if
rs.AbsolutePage=page
response.Write(" "&vbcrlf)
for i=1 to rs.PageSize
response.Write("- ")
updatetime=rs("updatetime")
name=rs("name")
if updatetime<>"" then
response.Write("(")
response.Write year(updatetime)&"-"&month(updatetime)&"-"&day(updatetime)
response.Write(")")
end if
response.Write(""&keyword_tag(name,keyword)&"")
response.Write("
"&vbcrlf)
response.Write("- ")
response.Write(""&keyword_tag(rs("Description"),keyword)&"")
response.Write("
"&vbcrlf)
rs.movenext
if rs.eof then exit for
next
response.Write("
")
response.Write("共"&recordcount&"篇文章 ")
if sitehtmlid=2 and lt<>"" then
filename=tagurl2(lt)
call showpage_fun3(pagecount,page,4,filename)
else
filename="search.asp"
call showpage_fun2(pagecount,page,4,filename)
end if
response.Write("
")
call savekey()
else
response.Write("没找到任何文章
")
end if
rs.close
set rs=nothing
end function
function tags()'搜索推荐%>
<%
key=keyword
keys=replace(trim(fckey(key))," "," ")
sql_tags=keyword_sousuo2("keyname,title",keys)
set rs=conn.execute("select top 16 * from data_keyname where keyname<>'"&keyword&"' and display=1 and "&sql_tags&" order by orderby,size desc,keyorder desc,keyid")
if not rs.eof then%>
<%else
set rs2=conn.execute("select top 20 * from data_keyname where keyname<>'"&keyword&"' and display=1 order by orderby,size desc,keyorder desc,keyid")
if not rs2.eof then%>
<%end if
rs2.close
set rs2=nothing
end if
rs.close
set rs=nothing
end function
function newstj()'相关文章
if request("page")=1 or request("page")="" then
keys=keyword
keys=replace(trim(fckey(keys))," "," ")
sql_where=keyword_sousuo("name,title",keys)
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 6 * from data_news where display=1 and "&sql_where&" order by updatetime desc,tuijian desc,id desc",conn,1,1
if rs.eof and rs.bof then
response.Write ""
else%>
<%end if
rs.close
set rs = nothing
end if
end function
if keyword<>"" then
pname=keyword
end if
function weizhi()'当前位置%>
当前位置：首页 > 热门关键词<%if keyword<>"" then%> > <%if lt<>"" then%><%=keyword%><%else%><%=keyword%><%end if%><%end if%>
<%end function%>
<%=recordcount%>
<%=include(temp&"search.html")%>
<%
sub savekey()
if keyword<>"" and len(keyword)>1 then
letter=Hanzi2Pinyin(keyword)
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from data_keyname where keyname='"&keyword&"' ",conn,1,3
if rs1.eof and rs1.bof then
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from data_keyname where letter='"&letter&"'",conn,1,3
if rs2.eof and rs2.bof then
rs2.addnew
rs2("keyname")=keyword
rs2("keyorder")=1
rs2("size")=recordcount
rs2("letter")=letter
rs2("orderby")=1000
rs2.update
else
rs2.addnew
rs2("keyname")=keyword
rs2("keyorder")=1
rs2("size")=recordcount
rs2("letter")=keyword
rs2("orderby")=1000
rs2.update
end if
rs2.close
set rs2=nothing
else
rs1("keyorder")=rs1("keyorder")+1
rs1("size")=recordcount
if rs1("letter")="" then
rs1("letter")=Hanzi2Pinyin(keyword)
end if
rs1.update
end if
rs1.close
set rs1=nothing
end if
end sub
%>