ASP验证域名是否合法

大家在使用ASP设计用户提交表单的时候，如果涉及到网址输入框，那么相信都有可能会用到这个效果，代码如下：

<%Function iswww(strng)
iswww = false
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z]+$" 
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
if match.count then iswww = true
End Function
'调用方法：
Response.Write iswww("cuoxin.com")%>

注：参数只能输入域名，开始不能加""，结尾不能加"/"。