ASP获取IP地址的方法函数

获取客户的IP地址有时候是很有必要的，在网站的评论了，论坛的发帖回复了等都会搜集客户的IP地址，那么ASP程序获取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()即可。