【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
 
' 測試IP地址
Dim testIP
testIP = "192.168.1.1"
 
If IsValidIP(testIP) Then
    Response.Write("IP 地址 " & testIP & " 是有效的。")
Else
    Response.Write("IP 地址 " & testIP & " 無效。")
End If
%>

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