aspHtml2Ubb函数

Function Html2Ubb(str)
 If Str<>"" And Not IsNull(str) Then
  Dim re
  Set re=new RegExp
  re.IgnoreCase =True
  re.Global=True
  re.Pattern="(on(load|click|dbclick|mouseover|mouseout|mousedown|mouseup|mousewheel|keydown|submit|change|focus)=""[^""]+"")"
  str = re.Replace(str, "")
  re.Pattern="((name|id|class)=""[^""]+"")"
  str = re.Replace(str, "")
  re.Pattern = "(<s+cript[^>]*?>([/w/W]*?)<//s+cript>)"
  str = re.Replace(str, "")
  re.Pattern = "(<iframe[^>]*?>([/w/W]*?)<//iframe>)"
  str = re.Replace(str, "")
  re.Pattern = "(<p>&nbsp;<//p>)"
  str = re.Replace(str, "")
  're.Pattern = "<(/w*) class/s*=/s*([^>|/s]*)([^>]*)>"
  'str = re.Replace(str,"<$1$3>")
  Set re=Nothing
  Html2Ubb = str
 Else
  Html2Ubb = ""
 End If
End Function