自动识别HTML的标记 替换连接

代码如下:<% Function SenFe_UbbCode(sContent) Dim TempReg Set TempReg = New RegExp With TempReg .IgnoreCase = True .Global = True ‘自动识别网址 If InStr(Lcase(sContent),”http://”)>0 Then .Pattern = “(^|[^<=””])(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%