Dim strng
strng = "文字文字文字文字文字<font color=#red>文字</font>文字文字<font color=blue>文字</font><font size=2>文字</font>文字文字文字文字文字<font color=#red>文字</font>文字文字<font color=blue>文字</font><font size=2>文字</font>"
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = "(<font[^>]*color\=(.[^>]*)>)(.[^<>]*)(<\/font>)"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
strng = regEx.Replace(strng, "$3")
Next
Set regEx = New RegExp
regEx.Pattern = "(<font[^>]*size\=(\d)>)(.[^<>]*)(<\/font>)"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
strng = regEx.Replace(strng, "")
Response.Write(strng& " <br/> ")
Next
%>