javascript 特殊字符的转换

function coder(str)
  dim i
  if isnull(str) then : coder="" : exit function : end if
  for i = 1 to len(str)
    select case mid(str,i,1)
      case "<"     : coder = coder &"&lt;"
      case ">"     : coder = coder &"&gt;"    
      case "&"     : coder = coder &"&amp;"
      case chr(9)  : coder = coder &"&nbsp; &nbsp; "
      case chr(13) : coder = coder &"<br>"
      case chr(32) : coder = coder &"&nbsp;"
      case chr(34) : coder = coder &"&quot;"
      case chr(39) : coder = coder &"&#39;"
      case else    : coder = coder & mid(str,i,1)
    end select
  next
end function

过滤javascript字符

function movejs(str)
dim objregexp,str1
   
set objregexp=new regexp
   
objregexp.ignorecase =true
   
objregexp.global=true
   
   
objregexp.pattern="/<script.+?/<//script/>"
   
a=objregexp.replace(str,"")
   
objregexp.pattern="/<[^/<]+>"
   
movejs=objregexp.replace(a,"")
end function

过滤html标签只剩<br>

function filterhtml(byval fstring)
    if isnull(fstring) or trim(fstring)="" then
        filterhtml=""
        exit function
    end if
   
    fstring = replace(fstring, "<br />", "[br]")
    fstring = replace(fstring, "<br>", "[br]")
   
    '过滤html标签
    dim re
    set   re = new   regexp
    re.ignorecase=true
    re.global=true
    re.pattern="<(.+?)>"
    fstring = re.replace(fstring, "")
    set   re=nothing
   
    fstring = replace(fstring, "[br]", "<br />")
    filterhtml = fstring
end function