如何統(tǒng)計(jì)訪客搜索的常用的關(guān)鍵詞_動(dòng)易Cms教程
此主題相關(guān)圖片如下：
下面我們來操作怎么實(shí)現(xiàn)它：
舉一個(gè)新聞?lì)l道的例子，其它頻道參考這個(gè)
1，修改article目錄下的Search.asp，在Call CloseConn前加入'統(tǒng)計(jì)關(guān)鍵詞被搜索的次數(shù)
DIM rs,sql
channelname="Article"
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
'統(tǒng)計(jì)關(guān)鍵詞被搜索的次數(shù)
channelname="Article",如果是商品頻道，就修改為channelname="shop",其它類似
2，數(shù)據(jù)表的創(chuàng)建
表名：plus_keys，表結(jié)構(gòu)參考下圖（這里是SQL數(shù)據(jù)庫(kù)表）
此主題相關(guān)圖片如下：
3，建結(jié)果查詢頁(yè)面，在后臺(tái)，文件名：plus_keywordscount.asp，頁(yè)面代碼如下
<%
dim sqlOpenDB,Conn
sqlOpenDB="driver={sql server};database=你的數(shù)據(jù)庫(kù);server=你的服務(wù)器名;uid=sa;pwd=密碼"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
BODY {
FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif, 宋體
}
P {
FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif, 宋體
}
TD {
FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif, 宋體
}
BODY {
BACKGROUND-COLOR: #d4d0c8
}
TR {
BACKGROUND-COLOR: #e7e7e7
}
.bg {
BACKGROUND-COLOR: #d4d0c8
}
.bg_2 {
BACKGROUND-COLOR: #e7e7e7
}
.tables {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #d4d0c8
}
.table {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 98%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #d4d0c8
}
.table0 {
BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 100%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: #d4d0c8
}
.table1 {
BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 90%; BORDER-BOTTOM: 0px; BACKGROUND-COLOR: #e7e7e7
}
.table2 {
BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; WIDTH: 85%; BORDER-BOTTOM: 0px
}
.table3 {
WIDTH: 98%
}
.tr {
HEIGHT: 20px; BACKGROUND-COLOR: #e7e7e7
}
.tr0 {
BACKGROUND-COLOR: #d4d0c8
}
.tr1 {
BACKGROUND-COLOR: #dddddd
}
.tr2 {
HEIGHT: 20px; BACKGROUND-COLOR: #d7d7d7
}
.tr3 {
HEIGHT: 20px; BACKGROUND-COLOR: #f7f7f7
}
.td {
FONT-WEIGHT: bold; CURSOR: hand; COLOR: #ffffff; HEIGHT: 24px; BACKGROUND-COLOR: 1da2db
}
.div_alt {
BORDER-RIGHT: black 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: black 1px solid; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; MARGIN-LEFT: 18px; BORDER-LEFT: black 1px solid; WIDTH: 240px; COLOR: #000000; PADDING-TOP: 2px; BORDER-BOTTOM: black 1px solid; BACKGROUND-COLOR: #ffffe1
}
.tims {
FONT-SIZE: 7pt; COLOR: #808080
}
.htd {
LINE-HEIGHT: 180%
}
.red {
COLOR: #ff3300
}
.red2 {
COLOR: #cc3300
}
.read {
COLOR: #3131ce
}
.blue {
COLOR: #0066cc
}
.gray {
COLOR: #808080
}
A {
COLOR: #000000; TEXT-DECORATION: underline
}
A:hover {
COLOR: #ff3300; TEXT-DECORATION: underline
}
</style>
</head>
<BODY>
<%
if request("action")="del" then
conn.execute "delete from plus_keys"
response.write "<script language='javascript'>"
response.write "alert('統(tǒng)計(jì)數(shù)據(jù)已被清除，系統(tǒng)將從重新開始統(tǒng)計(jì)。');"
response.write "</script>"
end if
%>
<table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#333333" cellspacing="0" cellpadding="2">
<tr class=backs><td class=td height=18>搜索關(guān)鍵詞統(tǒng)計(jì),幫助您分析在您的站點(diǎn)有哪些關(guān)鍵詞受訪客關(guān)注</td></tr>
<tr><td>
<table border="1" width="100%" cellSpacing=0 cellPadding=3 bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bordercolor="#FFFFFF">
<tr>
<td width="14%" align="center">頻道</td>
<td width="31%" align="center">關(guān)鍵詞</td>
<td width="29%">最近搜索時(shí)間</td>
<td width="26%">搜索次數(shù)
<span style="cursor:hand" onClick="{if(confirm('該操作不可恢復(fù)！\n\n確認(rèn)要?jiǎng)h除全部統(tǒng)計(jì)數(shù)據(jù)嗎？ ')){location.href='?action=del';}}"><font color=red><u>清除統(tǒng)計(jì)數(shù)據(jù)</u></font></span> </td>
</tr>
<%
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
%>
<tr>
<td colspan=4>暫時(shí)沒有訪問者搜索商品</td>
</tr>
<%
else
pages = 20 '每頁(yè)記錄數(shù)
rs.pageSize = pages
allPages = rs.pageCount '計(jì)算一共能分多少頁(yè)
page = Request("page")
'if語(yǔ)句屬于基本的排錯(cuò)處理
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
%>
<tr>
<td align="center"><%=rs("channel")%></td>
<td><span alt="用戶曾在本站以“<font color=red><%=rs("keywords")%></font>”為關(guān)鍵字搜索商品"><%=rs("keywords")%></span></td><td><%=rs("keydate")%></td><td><%=rs("num")%></td>
</tr>
<%
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<%
call listpages()
%>
</td></tr>
</table>
</body></html>
<%
'分頁(yè)
sub listPages()
if allpages <= 1 then exit sub
if page = 1 then
response.write "<font color=darkgray>首頁(yè) 前頁(yè)</font>"
else
response.write "<a href="&request.ServerVariables("script_name")&"?page=1>首頁(yè)</a> <a href="&request.ServerVariables("script_name")&"?page="&page-1&">前頁(yè)</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下頁(yè) 末頁(yè)</font>"
else
response.write " <a href="&request.ServerVariables("script_name")&"?page="&page+1&">下頁(yè)</a> <a href="&request.ServerVariables("script_name")&"?page="&allpages&">末頁(yè)</a>"
end if
response.write " 第"&page&"頁(yè) 共"&allpages&"頁(yè)"
end sub
%>
4，修改Admin_Index_Left.asp，在適當(dāng)位置加上以下語(yǔ)句，
Response.Write " 關(guān)注： <a href='plus_keywordscount.asp' target=main title='客戶搜索的關(guān)鍵詞'>熱點(diǎn)關(guān)鍵詞</a>
至此，此功能實(shí)現(xiàn)制作完畢。這個(gè)統(tǒng)計(jì)可作為記錄客戶在網(wǎng)站行為的一個(gè)參考，幫助建站者更好做好滿足客戶需求的網(wǎng)站。
- MAC錯(cuò)誤的解決方法
- 如何屏蔽動(dòng)易后臺(tái)導(dǎo)航里的某個(gè)功能菜單？
- 動(dòng)易.NET版本留言自動(dòng)選定欄目方法
- 動(dòng)易SiteFactoty整合Discuz!NT3.0
- 在任意位置獲取根節(jié)點(diǎn)ID標(biāo)簽
- 如何開啟SiteWeaver6.8的支持，反對(duì)功能
- Windows 2008安裝動(dòng)易.NET系統(tǒng)之四----動(dòng)易系統(tǒng)安裝篇
- Windows 2008安裝動(dòng)易.NET系統(tǒng)之三----數(shù)據(jù)庫(kù)篇
- Windows 2008安裝動(dòng)易.NET系統(tǒng)之二----IIS、目錄環(huán)境配置篇
- 數(shù)據(jù)庫(kù)修復(fù)，SQL Server 2005內(nèi)部操作不一致的處理
- 如何安裝動(dòng)易.net程序權(quán)限配置
- 為什么提示對(duì)Windows系統(tǒng)文件夾下的Temp目錄沒有訪問權(quán)限？
動(dòng)易Cms教程教程Rss訂閱Cms教程搜索
動(dòng)易Cms教程推薦
- 《動(dòng)易網(wǎng)站管理系統(tǒng)》2005版文章頻道標(biāo)簽
- 數(shù)據(jù)庫(kù)轉(zhuǎn)換時(shí)直接導(dǎo)入導(dǎo)出引起的問題
- 如何修改文章內(nèi)容頁(yè)的作者和點(diǎn)擊數(shù)等字樣？
- 生成欄目的時(shí)候發(fā)生死循環(huán)
- 解讀關(guān)于{$Price_Your}的顯示格式問題
- Microsoft SQL Server 2000/2005安裝硬件和軟件基本要求
- 《動(dòng)易網(wǎng)站管理系統(tǒng)》2005 SP2版標(biāo)簽調(diào)整說明
- 動(dòng)易系統(tǒng)安全寶典！各位站長(zhǎng)注意
- 菜鳥初裝動(dòng)易
- 巧用CSS包含選擇符定義文章標(biāo)題 簡(jiǎn)介效果
- 相關(guān)鏈接：
- 教程說明：
動(dòng)易Cms教程-如何統(tǒng)計(jì)訪客搜索的常用的關(guān)鍵詞
。