获取客户的IP地址有时候是很有必要的，在网站的评论了，论坛的发帖回复了等都会搜集客户的IP地址，那么ASP程序获取IP地址的函数怎么写呢？下面青岛星网跟大家分享：ASP获取IP地址的方法。
'获取IP的函数
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在需要的地方直接调用getip()即可。
在线QQ：
