asp下比较全面的获取IP地址的代码


最简单的用以下语句:

ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:

复制代码 代码如下:

<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
ip=getIP()
response.write(ip)
%>



相关阅读:
MySQL教程:Order By用法
ASP教程:ASP错误ASP 0201的解决方法
javascript 基础篇1 什么是js 建立第一个js程序
linux内容批量替换的命令
prototype Element学习笔记(篇一)
extjs 学习笔记(二) Ext.Element类
VBS教程:VBScript 基础-VBScript 运算符
MYSQL同步 Slave_IO_Running: No 或者Slave_SQL_Running: No的解决方法[已测]
最常用的正则表达式示例
jQuery Ajax 全解析
DIV下拉式菜单(一)
学php必收藏的几个经典代码
类的另类用法--数据的封装
JS 仿Flash动画放大/缩小容器
快速导航

Copyright © 2016 phpStudy |