asp检测URL正表达式

<% Function IsValidUrl(UrlValue)
    Dim ArrayUrl,thisUrl,PostFix,url
    Dim i,x,y,c
   
    IsValidUrl = True
    ArrayUrl=Split(UrlValue,"|")
    for i=0 to UBound(ArrayUrl)
        thisUrl=Split(ArrayUrl(i),".")
        if UBound(thisUrl)<0 then                      '检查是否有.
            IsValidUrl = False
            Exit Function
        end if
       
        PostFix=UBound(thisUrl)                        '得到后辍
        if IsValidPostFix(thisUrl(PostFix))=False then '检查后辍是否为com或net或cn,可根据实际情况在IsValidPostFix函数中添加
            IsValidUrl = False
            Exit Function
        end if
       
        for each url in thisUrl
            if Len(url) <= 0 then
                IsValidUrl = False
                Exit Function
            end if
            if InStr(url,"-")=1 then '第一个字母不能以“-"开头
                IsValidUrl = False
                Exit Function
            end if
            for y = 1 to Len(url)
                c = Lcase(Mid(name, y, 1))
                if InStr("abcdefghijklmnopqrstuvwxyz_-", c) <= 0 and IsNumeric(c)=False then '可以是任意英文或数字
                    IsValidUrl = False
                    Exit Function
                end if
            next
            if Left(url, 1) = "." or Right(url, 1) = "." then
                IsValidUrl = False
                Exit Function
            end if
        next
    next
End Function
'-----------------------------------------------------------------------------------------------------------
Function IsValidPostFix(PostFixValue)
    Dim ValidPostFix,thisPostFix
    Dim k
    IsValidPostFix=False
    ValidPostFix="com, net, cn"
    thisPostFix=Split(ValidPostFix,",")
    for k=0 to UBound(thisPostFix)
        if Instr(PostFixValue,thisPostFix(k))>0 then
            IsValidPostFix=True
            Exit Function
        end if
    next
End Function
'-----------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------
Response.Write IsValidUrl("abc.com.cn ¦abc.com ¦bbs.news.163.com")