'更多资源请访问飞飞Asp技术乐园
function Matchform(str)
Dim oRegEx, oMatch
Set oRegEx = New RegExp
oRegEx.IgnoreCase = True '不区分大小写
oRegEx.Pattern = "^(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])$"
oMatch = oRegEx.Test(str) ' 执行搜索测试。飞飞Asp技术乐园
If oMatch Then
Matchform = true
Else
Matchform = false
End If
End function


'如果ip地址正确则返回true,否则返回false