asp.net(vb.net)获取真实IP的函数

aspx vb.net获取真实IP的函数如下：
复制代码 代码如下:


完整的测试页面：
复制代码 代码如下:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>









<%
Dim client_ip As String = get_cli_ip()
System.Web.HttpContext.Current.Response.Write(client_ip)
%>