席天卷地个人博客统计来访客户在你的站点搜索的关键词，根据这个统计你可以很方便的知道客户喜欢些什么！后台看到的结果如下图：
此主题相关图片如下：
下面我们来操作怎么实现它：
举一个新闻频道的例子，其它频道参考这个
1，修改article目录下的Search.asp，在Call CloseConn前加入
'统计关键词被搜索的次数
DIM rs,sql
if Keyword<>"" then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from plus_keys where keywords='"&keyword&"' and channel='"&channelname&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("num")=rs("num")+1
rs("keydate")=now()
else
rs.addnew
rs("channel")=channelname
rs("keywords")=keyword
rs("keydate")=now()
end if
rs.update
rs.close
set rs=nothing
end if
'统计关键词被搜索的次数
channelname="Article",如果是商品频道，就修改为channelname="shop",其它类似
2，数据表的创建
表名：
plus_keys
，表结构参考下图（这里是SQL数据库表）
此主题相关图片如下：
3，建结果查询页面，在后台，文件名：
plus_keywordscount.asp，
页面代码如下
<%
dim sqlOpenDB,Conn
sqlOpenDB="driver={sql server};database=你的数据库;server=你的服务器名;uid=sa;pwd=密码"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB)
%>
<% if request("action")="del" then conn.execute "delete from plus_keys" response.write ""
end if
%>
| 搜索关键词统计,帮助您分析在您的站点有哪些关键词受访客关注 | ||||||||||||
<% call listpages() %> |
||||||||||||
<%
'分页
sub listPages()
if allpages <= 1 then exit sub
if page = 1 then
response.write "首页 前页"
else
response.write "首页 前页"
end if
if page = allpages then
response.write " 下页 末页"
else
response.write " 下页 末页"
end if
response.write " 第"&page&"页 共"&allpages&"页"
end sub
%>
4，修改Admin_Index_Left.asp，在适当位置加上以下语句，
Response.Write " 关注： 热点关键词
至此，此功能实现制作完毕。这个统计可作为记录客户在网站行为的一个参考，帮助建站者更好做好满足客户需求的网站。
评论前必须登录！
注册