拍拍尘土

'txt = "<p style = 'font-size:11px'>test11</p>"
'Response.write(SimpleHTML(txt,"style"))

Function SimpleHTML(content,tag)
         If tag="" Then tag="style"
         SimpleHTML = ReplaceTest( content, tag&"\s*=\s*""(.*)""" ,"" )
  SimpleHTML = ReplaceTest( content, tag&"\s*=\s*'(.*)'" ,"" )
End Function


Function ReplaceTest(str,patrn, replStr)
Dim regEx, str1 ' 建立变量。
'str1 = "dog 123."
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str, replStr) ' 作替换。
End Function