您的网站空间即将过期,我做网站编辑写文章很慢怎么办,企业建设网站个人总结,国家企业信用信息系统年报入口要想透过代理服务器取得客户端的真实IP地址#xff0c;就要使用 Request.ServerVariables(HTTP_X_FORWARDED_FOR) 来读取。不过要注意的事#xff0c;并不是每个代理服务器都能用 Request.ServerVariables(HTTP_X_FORWARDED_FOR) 来读取客户端的真实… 要想透过代理服务器取得客户端的真实IP地址就要使用 Request.ServerVariables(HTTP_X_FORWARDED_FOR) 来读取。不过要注意的事并不是每个代理服务器都能用 Request.ServerVariables(HTTP_X_FORWARDED_FOR) 来读取客户端的真实 IP有些用此方法读取到的仍然是代理服务器的IP。还有一点需要注意的是如果客户端没有通过代理服务器来访问那么用 Request.ServerVariables (HTTP_X_FORWARDED_FOR) 取到的值将是空的。因此如果要在程序中使用此方法可以这样处理 ...... userip Request.ServerVariables(HTTP_X_FORWARDED_FOR) If userip Then userip Request.ServerVariables(REMOTE_ADDR) ...... 即如果客户端通过代理服务器则取 HTTP_X_FORWARDED_FOR 的值如果没通过代理服务器就取 REMOTE_ADDR 的值。 通用函数如果不能取客户端真实IP就会取客户端的代理IP Private 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 上海治疗阳痿医院程序希望大家通过这篇文章对于如何获取客户端真实IP地址的问题一定有所了解了。如果你又不懂的问题也可以联系我哦。转载于:https://www.cnblogs.com/chaorenman/p/4088668.html
