asp里面用正则去除html标签的属性
[ 2017-06-06 13:27:49 | 作者: admin ]
'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."
...'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."
阅读全文…
1