获取用户真实IP地址代码
来源:网络 作者:佚名 点击:
次时间:2017-08-23 21:47
[摘要] 指引教程为您提供获取用户真实IP地址代码等资源，欢迎您收藏本站，我们将为您提供最新的获取用户真实IP地址代码资源
|
<script>ec(2);</script> Public Function GetIp(getType)
If getType = 0 then
GetIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if GetIp = "" Then getIp = Request.ServerVariables("REMOTE_ADDR")
ElseIf getType = 1 Then
GetIp = Request.ServerVariables("LOCAL_ADDR")
Else
GetIp = "<span style=""color:#FF0000"">未知</span>"
End if
If GetIp = "::1" Then GetIp = "127.0.0.1"
End Function '使用方法
dim i
i=1
GetIp(1)
|
------分隔线----------------------------
