IDC资讯中心
我们知道，request.servervariables("http_referer")可以获取来源网站的地址，因此我们可以通过这个数据来做一个小小的来源访问统计
新建一个数据库sys_referer：
if exists (select * from dbo.sysobjects where id = object_id(n[dbo].[sys_referer]) and objectproperty(id, nisusertable) = 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/
