Function getIP()
Dim strIPAddr as 
string
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

GET /test/ipSpoof/test.asp HTTP/1.1
Accept: */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; 
TencentTraveler ; .NET CLR 1.1.4322)
Host: localhost
Connection: Keep-Alive
Cookie: tc_total_cookie_datetime_14734=2006-5-29%2010%3A45%3A26; 
PJBlog25Setting=ViewType=list; 
ASPSESSIONIDQQQGQMDQ=HLGHFEADMMDPHAFJDHBLBOPD
X-Forwarded-For: 10.0.0.54