欢迎光临
我们一直在努力

动易如何统计访客搜索的常用的热门关键词

统计来访客户在你的站点搜索的关键词,根据这个统计你可以很方便的知道客户喜欢些什么!后台看到的结果如下图:

动易如何统计访客搜索的常用的热门关键词

此主题相关图片如下:
动易如何统计访客搜索的常用的热门关键词
下面我们来操作怎么实现它:
举一个新闻频道的例子,其它频道参考这个
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
%>

搜索关键词统计,帮助您分析在您的站点有哪些关键词受访客关注

<% set rs=Server.CreateObject("ADODB.recordset") sql="select * from plus_keys order by num desc" rs.open sql,conn,1,3 if rs.eof and rs.bof then %>

<% else pages = 20 '每页记录数 rs.pageSize = pages allPages = rs.pageCount '计算一共能分多少页 page = Request("page") 'if语句属于基本的排错处理 if isEmpty(page) or clng(page) < 1 then page = 1 elseif clng(page) >= allPages then
page = allPages
end if
rs.AbsolutePage = page

do while not rs.eof and pages>0
%>

<% pages = pages - 1 rs.movenext if rs.eof then exit do loop end if rs.close set rs=nothing conn.close set conn=nothing %>

频道 关键词 最近搜索时间 搜索次数
清除统计数据
暂时没有访问者搜索商品
<%=rs("channel")%> <%=rs("keywords")%>”为关键字搜索商品"><%=rs("keywords")%> <%=rs("keydate")%> <%=rs("num")%>

<% 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 " 关注: 热点关键词

至此,此功能实现制作完毕。这个统计可作为记录客户在网站行为的一个参考,帮助建站者更好做好满足客户需求的网站。

赞(0) 打赏
未经允许不得转载:刘旭的人个博客 » 动易如何统计访客搜索的常用的热门关键词
分享到: 更多 (0)
标签:

评论 抢沙发

评论前必须登录!

 

QQ :13945502电话:13913571631

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

×
订阅图标按钮