asp的ubb函数

<%
function unHtml(content)
    unHtml=content
    if content <> "" then
    unHtml=replace(unHtml,"&","&amp;")
    unHtml=replace(unHtml,"<","&lt;")
    unHtml=replace(unHtml,">","&gt;")
    unHtml=replace(unHtml,chr(34),"&quot;")
    unHtml=replace(unHtml,chr(13),"<br>")
    unHtml=replace(unHtml,chr(32)," ")
    'unHtml=ubb(unHtml)
    end if
end function

function ubb(content)
    Dim nowtime,i
    ubb=content
    nowtime=now()
    UBB=Convert(ubb,"code")
    UBB=Convert(ubb,"html")