过滤超链接

Function checkURL(ByVal ChkStr) 
Dim str:str=ChkStr 
str=Trim(str) 
If IsNull(str) Then 
checkURL = "" 
Exit Function 
End If 
Dim re 
Set re=new RegExp 
re.IgnoreCase =True 
re.Global=True 
re.Pattern="(d)(ocument\.cookie)" 
Str = re.replace(Str,"$1ocument cookie") 
re.Pattern="(d)(ocument\.write)" 
Str = re.replace(Str,"$1ocument write") 
re.Pattern="(s)(cript:)" 
Str = re.replace(Str,"$1cript ") 
re.Pattern="(s)(cript)" 
Str = re.replace(Str,"$1cript") 
re.Pattern="(o)(bject)" 
Str = re.replace(Str,"$1bject") 
re.Pattern="(a)(pplet)" 
Str = re.replace(Str,"$1pplet") 
re.Pattern="(e)(mbed)" 
Str = re.replace(Str,"$1mbed") 
Set re=Nothing 
Str = Replace(Str, ">", ">") 
Str = Replace(Str, "<", "<") 
checkURL=Str 
end function