转化html标签为code代码

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