Replacement of strings using common ASP Regular Expressions

Remove HTML Tag Regular Expressions <\/* [^ <>] *>
Function losehtml (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<\/* [^ <>] *>"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Set RegEx = nothing
Losehtml = clstemplosestr
End Function
Remove the class from the webpage
Function loseclasstag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "(class =) {1,} (" "| \ ') {0, 1} \ s + (" "| \' | >|\ s) {0, 1 }"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Loseclasstag = clstemplosestr
Set RegEx = nothing
End Function

Function losescripttag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "(<SCRIPT) {1,} [^ <>] *> [^ \ 0] * (<\/SCRIPT>) {1 ,}"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losescripttag = clstemplosestr
Set RegEx = nothing
End Function

Function loseiframetag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "(<IFRAME) {1,} [^ <>] *> [^ \ 0] * (<\/iframe>) {1 ,}"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Loseiframetag = clstemplosestr
Set RegEx = nothing
End Function

Function loseobjecttag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "(<object) {1,} [^ <>] *> [^ \ 0] * (<\/Object>) {1 ,}"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Loseobjecttag = clstemplosestr
Set RegEx = nothing
End Function

Function losespantag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<(\/) {0, 1} span [^ <>] *>"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losespantag = clstemplosestr
Set RegEx = nothing
End Function

Function losefonttag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<(\/) {0, 1} font [^ <>] *>"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losefonttag = clstemplosestr
Set RegEx = nothing
End Function

Function loseatag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<(\/) {0, 1} A [^ <>] *>"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Loseatag = clstemplosestr
Set RegEx = nothing
End Function

Function losedivtag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<(\/) {0, 1} Div [^ <>] *>"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losedivtag = clstemplosestr
Set RegEx = nothing
End Function

Function losestyletag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "(<style) {1,} [^ <>] *> [^ \ 0] * (<\/style>) {1 ,}"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losestyletag = clstemplosestr
Set RegEx = nothing
End Function

Function losenotetag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<! -- \/* [^ <>] * -->"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losenotetag = clstemplosestr
Set RegEx = nothing
End Function

Function losetabletag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<(\/) {0, 1} table [^ <>] *>"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losetabletag = clstemplosestr
Set RegEx = nothing
End Function

Function losetdtag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<(\/) {0, 1} TD [^ <>] *>"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losetdtag = clstemplosestr
Set RegEx = nothing
End Function

Function losetrtag (contentstr)
Dim clstemplosestr, RegEx
Clstemplosestr = CSTR (contentstr)
Set RegEx = new Regexp
RegEx. pattern = "<(\/) {0, 1} tr [^ <>] *>"
RegEx. ignorecase = true
RegEx. Global = true
Clstemplosestr = RegEx. Replace (clstemplosestr ,"")
Losetrtag = clstemplosestr
Set RegEx = nothing
End Function