显示的IP怎么是服务端的IP，怎么才能显示客户端IP

<% 
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
%> 
您的IP:<%response.Write(userip)%>

<%
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 

response.write getip()
%>