做一个简单的访问来源统计

news/2025/2/23 15:31:35

我们知道,Request.ServerVariables("HTTP_REFERER")可以获取来源网站的地址,因此我们可以通过这个数据来做一个小小的来源访问统计

新建一个数据库Sys_Referer:

ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[Sys_Referer]')andOBJECTPROPERTY(id,N'IsUserTable')=1)
droptable[dbo].[Sys_Referer]
GO
CREATETABLE[dbo].[Sys_Referer](
[FSiteName][varchar](64)COLLATEChinese_PRC_CI_ASNOTNULL,
[FStr][varchar](64)COLLATEChinese_PRC_CI_ASNOTNULL,
[FCounts][int]NOTNULL,
[VisitTime][datetime]NOTNULL
)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

说明:这里我只做了可识别站点的统计,不可识别站点未进行统计,这个请大家自己完成吧,我懒得写了

效果如图:
.net/Images/LogImg/2005125171434446.bmp" border="0" alt="2005125171434446.bmp" />

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

http://www.niftyadmin.cn/n/607795.html

相关文章

基于聚类的离群点检测(sklearn实现)

目录前言一、对Iris数据集应用kmeans聚类方法进行离群点检测&#xff0c;并分别采用tsne、MDS、Isomap和PCA降维将原数据降到2维并在新数据中标出离群点1.1 数据准备1.2 离群点检测1.3 在降维后的数据上显示离群点二、使用Kmeans聚类、DBCAN聚类和BIRCH聚类方法分别对去除离群点…

SQL Server日期计算

通常&#xff0c;你需要获得当前日期和计算一些其他的日期&#xff0c;例如&#xff0c;你的程序可能需要判断一个月的第一天或者最后一天。你们大部分人大概都知道怎样把日期进行分割&#xff08;年、月、日等&#xff09;&#xff0c;然后仅仅用分割出来的年、月、日等放在几…

(九)学习笔记:动手深度学习(多层感知机 + 代码实现)

目录1. 感知机1.1 感知机的基本概念1.2 感知机的训练算法1.3 感知机的收敛定理1.4 感知机的缺陷1.5 感知机总结2. 多层感知机2.1 多层感知机的简介2.2 常见激活函数2.2.1 ReLU函数2.2.2 sigmoid函数tanh函数3. 多层感知机的从零开始实现3.1初始化模型参数3.2激活函数3.3模型3.4…

(10)学习笔记:动手深度学习(模型选择 + 过拟合和欠拟合)

模型选择、欠拟合和过拟合 如何发现可以泛化的模式是机器学习的根本问题。  我们的目标是发现某些模式&#xff0c;这些模式捕捉到了我们训练集潜在总体的规律。如果成功做到了这点&#xff0c;即使是对以前从未遇到过的个体&#xff0c;模型也可以成功地评估风险。  困难在…

一个ASP写的侧边菜单栏

演示&#xff1a;http://goaler.xicp.net/demo/colspanmenu.asp <% class menus Public Title, ID, Image, TitleColor, Target, Background, HeadImage, Height, Width, Bgcolor, StylePrivate menuItem, menuStr Private Sub Class_InitializeTitle ""ID &…

Markdown使用指南

文章目录Markdown简介1.语法1.1标题1.2列表1.3 代码1.3.1 代码片段1.3.2 代码区块1.4 文本1.4.1 加粗或斜体1.4.2 线条1.4.3 符号或图标1.4.3.1 符号1.4.3.2 emoji1.4.4 转义字符1.4.5 公式1.4.6脚注1.5 引用1.6 链接1.6.1 链接1.6.2 图片1.6.3 目录1.7 表格1.8 样式2.工具2.1 …

孙子兵法 三十六计(猫鼠版)

一、胜战计1、瞒天过海2、围魏救赵3、借刀杀人4、以逸待劳5、趁火打劫6、声东击西二、敌战计1、无中生有2、暗渡陈仓3、隔岸观火4、笑里藏刀5、李代桃僵6、顺手牵羊三、攻战计1、打草惊蛇2、借尸还魂3、调虎离山4、欲擒故纵5、抛砖引玉6、擒贼擒王四、混战计1、釜底抽薪2、混水…

游戏背景知识

文章目录一、游戏的分类二、游戏的收入模式三、游戏制作流程四、游戏行业的分工4.1 游戏工作室的角度&#xff1a;4.2 产业链角度&#xff1a;游戏制作、游戏发行和运营五、常见的游戏开发技术六、游戏制作中的一些概念和名词6.1 FPS6.2 像素6.3 坐标系七、计算机中的颜色表示一…