asp如何准确获知对方来访问的时间和URL？
发布时间：2010-07-07 12:25:00
如何准确获知对方来访问的时间和URL？
代码如下：
logfile.asp
<％
Dim ValidLog
' 设置日志变量
ValidEntry = True
If not IsEmpty(Session("LogIn")) then ValidEntry = False
' 如果 LogIn 不为空,表明用户信息已经写进
If Left(Request.ServerVariables("HTTP_REFERER"), 17)="http://aspxhome.com" Then
ValidEntry = False
End if
If Left(Request.ServerVariables("HTTP_REFERER"), 21)="http://www.aspxhome.com" Then
ValidEntry = False
' 如果访问的是同一个URL,则不写进日志文件
End If
If ValidEntry Then
Const ForAppending = 8
Const Create = true
Dim FSO
DIM TS
DIM MyFileName
Dim strLog
' 如果ValidEntry为真,则写进日志文件
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)
strLog = "<br><P><B>" & now & "</B> "
strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & " "
strLog = strLog & Request.ServerVariables("HTTP_REFERER") & " "
strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT")
' 保存信息
& "<BR>"
TS.write strLog
TS.Writeline ""
' 把当前的信息写进文本文件里面
Session("LogIn") = "yes"
' 创建一个session变量,用于检查下次ValidEntry的值
Set TS = Nothing
Set FSO = Nothing
End If
％>
0
投稿猜你喜欢
本文实例讲述了Python图像处理之gif动态图的解析与合成操作。分享给大家供大家参考，具体如下：gif动态图是在现在已经司空见惯，朋友圈里- Pandas DataFrame 取一行数据会得到Series的方法如题，想要取如下dataframe的一行数据，以为得到的还是datafr
- 本文实例讲述了JS与jQuery判断文本框还剩多少字符可以输入的方法。分享给大家供大家参考，具体如下：javascript部分：functi
- 背景：之前写的接口测试一直没有支持无限嵌套对比key，上次testerhome逛论坛，有人分享了他的框架，看了一下，有些地方不合适我这边自己
- 原文地址：30 Days of Mootools 1.2 Tutorials - Day 13 - Regular ExpressionsM
- 对于yolo系列，应用广泛，在win10端也有很大的应用需求，所以这篇文章给出win10环境下的安装教程。先给出系列文章win10+anac
- 一、摘要Python使用被称为异常 的特殊对象来管理程序执行期间发生的错误。每当发生让Python不知所措的错误时，它都会创建一个异常对象。
- 广州4.18书友会主题的内容提纲自己参与撰写，同时还参与组织和主持。通过这次的深入参与，我发现胡晓同学能坚持下来多不容易，先赞下。由于天公不
- 一、安装vue-clinpm i @vue/cli -g二、创建项目vue-cli会创建一个完整的项目文件夹,内部包含src等,我们仅需要c
- 本文实例讲述了Python大数据之使用lxml库解析html网页文件。分享给大家供大家参考，具体如下：lxml是Python的一个html/
- 本文实例讲述了python队列原理及实现方法。分享给大家供大家参考，具体如下：队列（queue）是只允许在一端进行插入操作，而在另一端进行删
- 前言事情是这样的，昨天去表弟家，用了下他的电脑，不小心点到了他硬盘里隐藏的秘密，本来我只需要用几分钟电脑的，害得我硬是在电脑旁坐了几个小时~
- 在用户研究工作中，如何让自己的数据和结论更有说服力，是很重要的问题。最近将自己积累的用研信度和效度的笔记整理一下，罗列在文中，希望对大家有所
- 目录：分析和设计组件编码实现和算法用 Ant 构建组件测试 JavaScript 组件话说上期我们讨论了队列管理组件的设计，并且给它取了个响
- 在开发WEB应用程序中，我们经常需要对文件系统中的驱动器、文件夹和文件进行处理，比如收集驱动器的相关信息；创建、添加、移动或删除文件夹和文件
- BULK INSERT以用户指定的格式复制一个数据文件至数据库表或视图中。 语法：BULK INSERT [ [ 'database
- 工具python3.7PycharmPDFPyPDF2reportlab从PDF中提取文本PyPDF2没有办法从PDF文档中提取图像、图表或
- 本文实例为大家分享了python实现名片管理系统的具体代码，供大家参考，具体内容如下系统需求程序启动，显示名片管理系统欢迎界面，并显示功能菜
- 日一二三四五六'.split('') ['日','一','二&#
- 查看某一列中有多少中取值：数据集名.drop_duplicates(['列名'])#实际为删除重复项，删除后对原数据集不修改
