自动识别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
%>

<textarea name="scode" cols="50" rows="20"><input type="button" value="替换" onclick="vbscript:document.getelementbyid('scode').value=senfe_ubbcode(document.getelementbyid('scode').value)">/textarea>
[ctrl+a 全选 注:如需引入外部js需刷新才能执行]