如何获知用户的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
投稿猜你喜欢
- 网页中使用flash可以增强页面的动态交互效果，特别是用flash来制作广告，效果更好。经常使用flash的人，可能就碰到了flash会遮住
当我想要完美的使用:nth-child或者:nth-of-type的时候有点儿头晕。你越理解它们，就能写出越好的CSS规则！在这些简单的”秘- 前面的文章，主要讲到如何使用无序列表ul元素来实现复杂柱状图，但是在Web标准中，除了注重表现外，更加注重语意，所谓的语意就是样式和内容的相
- ASP+Access数据库的18条安全法则：1.首先，我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中
- 同质化的网站越来越多，往往你还没发展起来，就已有许多站点抄袭走了你的成果，如何留下用户？——让用户有更好的使用体验。一些网页上的小技巧，可以
- 打开网页，然后将javascript:document.body.contentEditable='true';
- 前端时间写了一篇《利用CSS框架进行高效率的站点开发》，有不少朋友问我相关的问题。很早5key就在公司进行CSS框架的架构，也对不少朋友提出
- 一.概念简介 脚本:script是使用一种特定的描述性语言，依据一定的格式编写的可执行文件，又称作宏或批处理文件。 二.背景 近来在Wind
- 下面直接记录下配置主从库的操作:(本文用的是mysql5.0以上)1.在主库建立要同步的数据库,建立主库的帐号和修改主库配置首先连接上数据库
- 1.查询表名： 代码如下:select table_name,tablespace_name,temporary from user_tab
- 我们都知道在9i之前，要想获得建表和索引的语句是一件很麻烦的事。我们通常的做法都是通过export with rows=no来得到，但它的输
- Windows Server 2003系统是现在很流行的服务器操作系统，许多网站都用它来做。但是如何保证服务器的相对安全，这个只要进行一些简
- 今天把博客的日历脚本又改了一改，就帖上了，以后找起来方便一点，同时也给需要的人带来方便，本来还想加点功能再帖上来，不过我看还是没必要了，帖的
- 随着网络的发展，人们通过各种方式使用它。今天，网络购物，跟朋友或者不认识的人聊天，管理银行账户，以及一些日常应用，共享照片或视频，等等。事实
- 每个浏览器都有自己的默认样式，这是一段预定义的CSS，用以简单地呈现网页。在Firefox中的地址栏中输入resource://gre/re
- firefox不支持text-overflow一直让人很折腾。。不过还好有大虾为我们提供解决方案。。text-overflow: ellip
- 1、用户有三种：活跃用户、沉睡用户、外部用户。2、据不完全统计，外部用户8亿，沉睡用户1.2亿，活跃用户1千万。3、就算不去管活跃用户，或者
- 1. 什么是存储过程？存储过程是SQL server所提供的Tran
- If...Then...Else 语句的一种变形，即添加任意多个 ElseIf 子句以扩充 If...Then...Else 语句的功能，允
- Macromedia Dreamweaver MX 2004提供了更多功能强劲的可视化设计工具、应用开
