asp常用的正则表达式实现字符串的替换

去除html标签正则]*>
FunctionLoseHtml(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
SetRegEx=Nothing
LoseHtml=ClsTempLoseStr
Endfunction
去除网页中的class
FunctionLoseClassTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(class=){1,}(""|'){0,1}S+(""|'|>|s){0,1}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseClassTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseScriptTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(]*>[^]*(){1,}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseScriptTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseIFrameTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(]*>[^]*(){1,}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseIFrameTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseObjectTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(]*>[^]*(){1,}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseObjectTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseSpanTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(/){0,1}span[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseSpanTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseFontTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(/){0,1}font[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseFontTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseATag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(/){0,1}a[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseATag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseDivTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(/){0,1}div[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseDivTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseStyleTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="(]*>[^]*(){1,}"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseStyleTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseNoteTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern=""
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseNoteTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseTableTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(/){0,1}table[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseTableTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseTDTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(/){0,1}td[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseTDTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction

FunctionLoseTRTag(ContentStr)
DimClsTempLoseStr,RegEx
ClsTempLoseStr=Cstr(ContentStr)
SetRegEx=NewRegExp
RegEx.Pattern="<(/){0,1}tr[^<>]*>"
RegEx.IgnoreCase=True
RegEx.Global=True
ClsTempLoseStr=RegEx.Replace(ClsTempLoseStr,"")
LoseTRTag=ClsTempLoseStr
SetRegEx=Nothing
EndFunction