一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

获取用户真实IP地址代码

时间:2022-07-02 22:33:29 编辑:袖梨 来源:一聚教程网

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 = "未知"
End if
If GetIp = "::1" Then GetIp = "127.0.0.1"
End Function

'使用方法
dim i
i=1
GetIp(1)

热门栏目