精美而实用的网站,关注web编程技术、网站运营、SEO推广,让您轻松愉快的学习

获取客户的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()即可。

Tags:ASP IP地址