js过滤字符串

'过滤代码Function htmlencode(fString)If not isnull(fString) then    fString = Replace(fString, ">", "&gt;")    fString = Replace(fString, "<", "&lt;")    fString = Replace(fString, CHR(32), "&nbsp;")    fString = Replace(fString, CHR(9), "&nbsp;")    fString = Replace(fString, CHR(34), "&quot;")    fString = Replace(fString, CHR(39), "&#39;")    fString = Replace(fString, CHR(13), "")    fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")    fString = Replace(fString, CHR(10), "<br>") htmlencod