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
%>

标签:url,来源,asp
0
投稿

猜你喜欢

  • 可以随便改别人的网页的代码

    2008-03-25 12:54:00
  • python调用机器喇叭发出蜂鸣声(Beep)的方法

    2022-01-09 15:17:20
  • javascript 词法作用域和闭包分析说明

    2024-04-17 09:56:42
  • Python时间序列处理之ARIMA模型的使用讲解

    2021-04-10 05:53:34
  • python项目报错:bs4.FeatureNotFound: Couldn‘t find a tree builder with the features you requests

    2022-07-17 05:39:02
  • Linux下安装Python3和django并配置mysql作为django默认服务器方法

    2023-11-15 01:04:44
  • 手把手教你MySQL运算符

    2024-01-22 12:53:16
  • mysql使用LOAD语句批量录入数据方法

    2010-03-09 16:31:00
  • Python编程实现tail-n查看日志文件的方法

    2023-07-26 01:17:42
  • Pycharm不同版本镜像源添加方法

    2023-08-24 15:59:43
  • 教你恢复SQLSERVER的master系统库的方法

    2024-01-21 05:21:55
  • Python实现Sqlite将字段当做索引进行查询的方法

    2021-06-05 13:31:51
  • Python基础知识学习之类的继承

    2022-09-02 15:41:05
  • JavaScript中String.prototype用法实例

    2024-04-22 22:18:12
  • tensorflow 2.1.0 安装与实战教程(CASIA FACE v5)

    2022-06-12 08:41:23
  • 浅谈对python中if、elif、else的误解

    2021-04-04 00:57:57
  • golang 跳出for循环操作

    2024-04-30 10:04:00
  • jQuerify书签

    2008-06-16 12:16:00
  • Pytorch模型微调fine-tune详解

    2021-06-17 07:29:00
  • python自动化测试之如何解析excel文件

    2022-08-28 08:24:36
  • asp之家 网络编程 m.aspxhome.com