目前项目中需要获取到访问接口的客户端的真实IP,暂时用此做一个简单的认证。在网上搜了个还算靠谱的,特做下记录:
public strIP
if strIP="" then strIP="" '如果没有定义 strIP 全局变量则定义它
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.ServerVari