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

來源:互聯網
上載者:User
訪問|統計 我們知道,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/



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。