如何获知用户的IP？
来源：asp之家 发布时间：2009-11-24 20:52:00
如何获知用户的IP？
<％
Dim ValidLog
' 日志变量
ValidEntry = True
If not IsEmpty(Session("LogIn")) then ValidEntry = False
' 如果LogIn不为空,则表明用户信息已经写入
If Left(Request.ServerVariables("HTTP_REFERER"), 19)=http://aspxhome.com Then
ValidEntry = False
' 如果访问同一个URL,则不要写进Foryoufile.txt
End if
If Left(Request.ServerVariables("HTTP_REFERER"), 23)=http://www.aspxhome.com Then
ValidEntry = False
End If
If ValidEntry Then
Const ForAppending = 8
Const Create = true
' 如果ValidEntry为真,则写到Foryoufile.txt
Dim FSO
DIM TS
DIM MyFileName
Dim strLog
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 ""
' 写到Foryoufile.txt
Session("LogIn") = "yes"
' 创建session变量,好检查下次ValidEntry的值
Set TS = Nothing
Set FSO = Nothing
End If
％>
0
投稿猜你喜欢
array和asarray都可以将结构数据转化为ndarray，但是主要区别就是当数据源是ndarray时，array仍然会copy出一个副- 动态 web 应用也会需要静态文件，通常是 CSS 和 JavaScript 文件。理想状况下， 我们已经配置好 Web 服务器来提供静态文
- mysql5.6 解析JSON字符串支持复杂的嵌套格式废话不多说，先上代码。CREATE FUNCTION `json_parse`(`js
- 1.文本string：通用字符串操作re：正则表达式操作difflib：差异计算工具textwrap：文本填充unicodedata：Uni
- rs.open sql,conn：如果sql是delete,update,insert则会返回一个关闭的记录集，在使用过程中不要来个rs.c
- 1. 安装vim:# apt-get install -y vim-gnome2. 安装ctags，ctags用于支持tagli
- --Create Company Table Create Table Company ( ComID varchar(50) primar
- WSGI（Web Server Gateway Interface）：Web服务网关接口，是Python中定义的服务器程序和应用程序之间的接
- MySQL安装文件分为两种，一种是msi格式的，一种是zip格式的。点击进入：下载地址1.下面是msi的下载和安装的步骤点击进去之后根据自己
- 光线追迹得益于计算机的计算的能力，通过追踪具有代表性的光线的传播轨迹，可以更加精确地描述光学系统的性能，光线追迹方法也因此大展其能，诸如Ze
- 我们使用alter table add column语句向现有表中添加新列。简介alter table table_nameadd [col
- ASCII(str) 返回字符串str的第一个字符的ASCII值(str是空串时返回0)mysql> select ASCII(
- 比如有一个需求,通过sql语句,返回-5至5的随机整数.如果这一个放在PHP中,则非常简单直接用print rand(-5,5);?>
- 1:数据源Hollywood Movie Dataset: 好莱坞2006-2011数据集实验目的: 实现 统计2006-2011的数据综合
- 错误类型： Microsoft JET Database Engine (0x80040E10) 至少一个参数没有被指定值。 原因：在写SQ
- eval()函数可以将字符串型的list、tuple、dict等等转换为原有的数据类型即使用eval可以实现从元组，列表，字典型的字符串到元
- 前面的话分页导航几乎在每个网站都可见，好的分页能给用户带来好的用户体验。本文将详细介绍Bootstrap分页概述在Bootstrap框架中提
- 1. 用SimpleITK读取dicom序列：import SimpleITK as sitkimport numpy as npimg_p
- 本文意在弄清楚这些概念间的关系及其作用。弄清Mysql在开启事务的情况下，每条sql执行时的加锁操作和MVCC版本控制。为使讨论简单，本文忽
- default-character-set=gbk #或gb2312,big5,utf8 然后重新启动mysql 运行->servic
