做一個簡單的訪問來源統計

我們知道，Request.ServerVariables("HTTP_REFERER")可以獲取來源網站的地址，因此我們可以通過這個數據來做一個小小的來源訪問統計

新建一個數據庫Sys_Referer：
if exists (select * from dbo.sysobjects where id = object_id(N@#[dbo].[Sys_Referer]@#) and OBJECTPROPERTY(id, N@#IsUserTable@#) = 1)
drop table [dbo].[Sys_Referer]
GO
CREATE TABLE [dbo].[Sys_Referer] (
[FSiteName] [varchar] (64) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[FStr] [varchar] (64) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[FCounts] [int] NOT NULL ,
[VisitTime] [datetime] NOT NULL
) ON [PRIMARY]
GO
FSiteName：varchar ,64 ,not null , 來源站點名稱（用戶自定義）
FStr： varchar ,64 ,not null ,網址中的關鍵字（如google則取google.com）
FCounts： int, not null, 統計來訪數
VisitTime： datetime, not null, 來訪時間

關鍵代碼：
Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
If(Referer="") Then
Referer="直接訪問"
End If
@#Response.Write Referer
@#Response.Write "<BR>"
Set Rs=Conn.Execute("Select FSiteName,FStr,FCounts From Sys_Referer ORDER BY FCounts Desc")
FSites=Rs.GetRows()
For i=0 To Ubound(FSites,2)
If(Instr(Referer,FSites(1,i))) Then
Conn.Execute("Update Sys_Referer Set FCounts=FCounts+1,VisitTime=getdate() Where FStr=@#"&FSites(1,i)&"@#")
End If
@#Response.Write FSites(0,i) & "["&FSites(2,i)&"]<BR>"
Next

FSites=NULL
Rs.Close
Set Rs=Nothing



說明：這里我只做了可識別站點的統計，不可識別站點未進行統計，這個請大家自己完成吧，我懶得寫了

效果如圖：


轉自: http://goaler.xicp.net/ShowLog.asp?ID=507

作者Blog：http://blog.csdn.net/AppleBBS/

原文轉自：http://www.kjueaiud.com