asp.net(vb.net)獲取真實IP的函數(shù)

來源：懂視網(wǎng) 責(zé)編：小采時間：2020-11-27 22:43:02

asp.net(vb.net)獲取真實IP的函數(shù)

asp.net(vb.net)獲取真實IP的函數(shù):aspx vb.net獲取真實IP的函數(shù)如下：代碼如下:<script runat=server> Public Function CheckIp(ByVal ip As String) As Boolean Dim pat As String = ^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-

推薦度：

點擊下載本文 文檔為doc格式

導(dǎo)讀asp.net(vb.net)獲取真實IP的函數(shù):aspx vb.net獲取真實IP的函數(shù)如下：代碼如下:<script runat=server> Public Function CheckIp(ByVal ip As String) As Boolean Dim pat As String = ^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-

aspx vb.net獲取真實IP的函數(shù)如下：
代碼如下:


<script runat="server"> 
Public Function CheckIp(ByVal ip As String) As Boolean 
Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" 
Dim reg As Regex = New Regex(pat) 
if ip = "" Then 
CheckIp = False 
exit Function 
end if 
CheckIp = reg.IsMatch(ip) 
End Function Public Function get_cli_ip() As String 
If ( Not( System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") Is Nothing) And CheckIp(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")) = True) Then 
get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") 
Exit Function 
ElseIf Not(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR") Is Nothing) Then 
Dim ips() As String = Split(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") 
For i As Integer = 0 To ips.Length - 1 
If CheckIp(Trim(ips(i))) = True Then 
get_cli_ip = Trim(ips(i)) 
Exit Function 
End If 
Next 
End If 
get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR") 
End Function 
</script> 
 
完整的測試頁面： 
 代碼如下:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<script runat="server"> 
Public Function CheckIp(ByVal ip As String) As Boolean 
Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" 
Dim reg As Regex = New Regex(pat) 
if ip = "" Then 
CheckIp = False 
exit Function 
end if 
CheckIp = reg.IsMatch(ip) 
End Function 
Public Function get_cli_ip() As String 
If ( Not( System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") Is Nothing) And CheckIp(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")) = True) Then 
get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") 
Exit Function 
ElseIf Not(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR") Is Nothing) Then 
Dim ips() As String = Split(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") 
For i As Integer = 0 To ips.Length - 1 
If CheckIp(Trim(ips(i))) = True Then 
get_cli_ip = Trim(ips(i)) 
Exit Function 
End If 
Next 
End If 
get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR") 
End Function 
</script> 
<html xmlns="http://www.w3.org/1999/xhtml" > 
<head runat="server"> 
<title>Untitled Page</title> 
</head> 
<body> 
<% 
Dim client_ip As String = get_cli_ip() 
System.Web.HttpContext.Current.Response.Write(client_ip) 
%> 
</body> 
</html> 

 
 




聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權(quán)等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com

asp.net(vb.net)獲取真實IP的函數(shù)

推薦度：

點擊下載本文 文檔為doc格式

標(biāo)簽：獲取 ip net

熱門焦點

asp.net(vb.net)獲取真實IP的函數(shù)

asp.net(vb.net)獲取真實IP的函數(shù)

asp.net(vb.net)獲取真實IP的函數(shù)

最新推薦

猜你喜歡

熱門推薦