一个简单的问题，大家帮忙啊！我在线等！

[philcc]

谁能给我段，显示自己机子ip的代码？或者取访问该页面所有的ip

[tjficcbw]

来路：request.ServerVariables("HTTP_REFERER")
本网站：Request.ServerVariables("server_name")
文件：Request.ServerVariables("URL")
IP地址：Request.ServerVariables("REMOTE_ADDR")

[calmer18]

Private Function getIP() '函数 获取真实IP
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

[philcc]

能解释一下吗？