【ASP】判斷是否是合法的IP地址源代碼

<%
Function IsValidIP(ipAddress)
    Dim regexObj, matches
    Set regexObj = New RegExp
    regexObj.Pattern = "^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$"
    regexObj.IgnoreCase = True
    Set matches = regexObj.Execute(ipAddress)
    IsValidIP = matches.Count > 0
    Set regexObj = Nothing
End Function
 
' 測(cè)試IP地址
Dim testIP
testIP = "192.168.1.1"
 
If IsValidIP(testIP) Then
    Response.Write("IP 地址 " & testIP & " 是有效的。")
Else
    Response.Write("IP 地址 " & testIP & " 無效。")
End If
%>

?這段代碼定義了一個(gè)名為IsValidIP的函數(shù)，它接受一個(gè)字符串作為參數(shù)，并使用正則表達(dá)式來檢查這個(gè)字符串是否符合IP地址的格式。如果匹配，則返回True，否則返回False。然后，代碼使用了一個(gè)測(cè)試IP地址來測(cè)試這個(gè)函數(shù)。