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


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