| 相关搜索: |
<%
word=""
word=replace(keyword,"t:","")
word=replace(keyword,"u:","")
sub word_add(keyword)
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from keyword where id is null",connkey,1,3
rs.addnew
rs("keyword")=keyword
rs("hot")="0"
rs.update
rs.close
set rs=nothing
end sub
sub word_click(k_id)
connkey.execute"update keyword set hot=hot+1 where id="&k_id&""
end sub
if len(word)>=4 and keyword_add=1 then
set rs=connkey.execute("select * from keyword where keyword='"&word&"'")
if rs.eof and rs.bof then
call word_add(word)
else
dim k_id
k_id=rs("id")
call word_click(k_id)
end if
rs.close
set rs=nothing
end if
if len(word)>=4 then
Dim keyword_left,keyword_right
keyword_left=left(word,2)
keyword_right=right(word,2)
keywordlist=word &" "& keyword_left &" "&keyword_right
keywordlist=split(keywordlist,chr(32))
else
keywordlist=split(word,chr(32))
end if
sql=""
for i=0 to ubound(keywordlist)
sql=sql &"keyword like '%" & keywordlist(i) & "%' or "
next
sql=Left(sql,(len(sql)-3))
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "select top 10 keyword,hot from keyword where ("&sql&") and keyword<>'"&word&"' order by hot desc",connkey,1,1
if rs.eof and rs.bof then
'
else
response.write ""
response.write ""
response.write "| "
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write ""
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write ""
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write ""
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write ""
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write " "
response.write ""
response.write "| "
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write ""
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write ""
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write ""
if not rs.eof then
response.write ""&rs("keyword")&""
rs.movenext
end if
response.write " | "
response.write ""
if not rs.eof then
response.write ">>更多相关搜索"
rs.movenext
end if
%> |
|
返回 |
<%
end if
rs.close
set rs=nothing
connkey.close
set connkey=nothing
%> |
