📄 keyword.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="connstr.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
function filtration(str)
str=replace(str,chr(34),"")
str=replace(str,chr(35),"")
str=replace(str,chr(37),"")
str=replace(str,chr(38),"")
str=replace(str,chr(39),"")
str=replace(str,chr(40),"")
str=replace(str,chr(41),"")
str=replace(str,chr(42),"")
str=replace(str,chr(43),"")
str=replace(str,chr(45),"")
str=replace(str,chr(46),"")
str=replace(str,chr(58),"")
str=replace(str,chr(59),"")
str=replace(str,chr(60),"")
str=replace(str,chr(61),"")
str=replace(str,chr(62),"")
filtration=str
end Function
keyword=Request.QueryString("keyword")
keyword=replace(keyword," "," ")
keyword=filtration(keyword)
%>
<html>
<head>
<title><%=WebSite_Title%> - 相关搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>
<body vlink="#990000" alink="#00CC00" leftmargin="5" topmargin="0" marginwidth="0" marginheight="5">
<!--#include file="top.asp" -->
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="30" align="center" bgcolor="#f5f5f5" class="title"><strong><%=keyword%>
- 相关搜索</strong></td>
</tr>
</table><br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> <table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<td width="35" height="20"></td>
<td width="150"><strong>关键词</strong></td>
<td><strong>被搜索次数</strong></td>
</tr>
</table>
<%
dim rs
keyword=ltrim(rtrim(keyword))
keywordlist=split(keyword,chr(32))
for i=0 to ubound(keywordlist)
sql=sql &" keyword.keyword like '%" & keywordlist(i) & "%' or "
next
sql=Left(SQL,(LEN(SQL)-3))
set rs=conn.execute("select * from keyword where ("&sql&") order by hot desc")
if rs.eof and rs.bof then
'
else
do while not rs.eof
total=total+rs("hot")
rs.movenext
loop
end if
rs.close
set rs=Nothing
set rs=conn.execute("select * from keyword where ("&sql&") order by hot desc")
if rs.eof and rs.bof then
'
else
i=1
do while not rs.eof
hot=(rs("hot")/total)*100
response.write "<table border='0' cellpadding='5' cellspacing='0'>"
response.write "<tr><td width='35' height='20' align='right'>"&i&"</td>"
response.write "<td width='150'><a href='search.asp?keyword="&rs("keyword")&"' target='_blank'>"&rs("keyword")&"</a></td>"
response.write "<td><img src='image/vote.gif' width='"&int(hot*2)&"' height='5'></td>"
response.write "</tr></table>"
i=i+1
rs.movenext
loop
end if
rs.close
set rs=Nothing
conn.close
set conn=Nothing
%>
</td>
</tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -