自动识别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\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+)"

　　sContent = .Replace(sContent,"$1<a href=""$2"" target=""_blank"">$2</a>")

　　End If

　　'自动识别www等开头的网址

　　If InStr(Lcase(sContent),"www.")>0 or InStr(Lcase(sContent),"bbs.")>0 Then

　　.Pattern = "(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&))+)"

　　sContent = .Replace(sContent,"$1<a href=""http://$2"" target=""_blank"">$2</a>")

　　End If

　　End With

　　Set TempReg = Nothing

　　SenFe_UbbCode = sContent

　　End Function

　　%>