透过代理，显示客户端ip地址

        Dim user_IP As String
        'proxy
        If Not Request.ServerVariables("HTTP_VIA") Is Nothing Then
            user_IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR").ToString()
        Else
            user_IP = Request.ServerVariables("REMOTE_ADDR").ToString()
        End If
 'client ip address
        TextBox1.Text = user_IP
 'server name
        TextBox2.Text = Server.MachineName