我们知道,Request.ServerVariables可以获取网站的地址,因此我们可以通过这个数据来做一个小小的统计
新建一个数据库Sys_Referer:
if existsand OBJECTPROPERTY = 1)
drop table [dbo].[Sys_Referer]
GO
CREATE TABLE [dbo].[Sys_Referer]COLLATE Chinese_PRC_CI_AS NOT NULL ,
[FStr] [varchar]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)
If Then
Referer=直接
End If
‘Response.Write Referer
‘Response.Write BR
Set Rs=Conn.Execute
FSites=Rs.GetRows
For i=0 To Ubound
If)) Then
Conn.Execute Where FStr=‘FSites‘)
End If
‘Response.Write FSites [FSites]BR
Next
FSites=NULL
Rs.Close
Set Rs=Nothing
说明:这里我只做了可识别站点的统计,不可识别站点未进行统计,这个请大家自己完成吧,我懒得写了
效果如
:
http://goaler.xicp.net/ShowLog.asp?ID=507 Blog:
http://blog.csdn.net/AppleBBS/