Copy Code code as follows:
<%
'/* Function name: zxj_replacehtml clearhtml
'/* Function language: VBScript Language
'/* Function: Clear file HTML Format function
'/* Pass parameters: Content (note: What needs to be cleared)
'/* Function Author: xiaojun (ancient city fairy tale) qq:382511147
'/* Function Description: Regular match (regular expression) pattern for data matching substitution
Function clearhtml (Content)
Content=zxj_replacehtml ("&#[^>]*;", "", Content)
Content=zxj_replacehtml ("</?marquee[^>]*>", "", Content)
Content=zxj_replacehtml ("</?object[^>]*>", "", Content)
Content=zxj_replacehtml ("</?param[^>]*>", "", Content)
Content=zxj_replacehtml ("</?embed[^>]*>", "", Content)
Content=zxj_replacehtml ("</?table[^>]*>", "", Content)
Content=zxj_replacehtml ("", "", Content)
Content=zxj_replacehtml ("</?tr[^>]*>", "", Content)
Content=zxj_replacehtml ("</?th[^>]*>", "", Content)
Content=zxj_replacehtml ("</?p[^>]*>", "", Content)
Content=zxj_replacehtml ("</?a[^>]*>", "", Content)
Content=zxj_replacehtml ("</?img[^>]*>", "", Content)
Content=zxj_replacehtml ("</?tbody[^>]*>", "", Content)
Content=zxj_replacehtml ("</?li[^>]*>", "", Content)
Content=zxj_replacehtml ("</?span[^>]*>", "", Content)
Content=zxj_replacehtml ("</?div[^>]*>", "", Content)
Content=zxj_replacehtml ("</?th[^>]*>", "", Content)
Content=zxj_replacehtml ("</?td[^>]*>", "", Content)
Content=zxj_replacehtml ("</?script[^>]*>", "", Content)
Content=zxj_replacehtml ("(javascript|jscript|vbscript|vbs):", "", Content)
Content=zxj_replacehtml ("On (Mouse|exit|error|click|key)", "", Content)
Content=zxj_replacehtml ("<\\?xml[^>]*>", "", Content)
Content=zxj_replacehtml ("<\/?[ A-z]+:[^>]*> "," ", Content)
Content=zxj_replacehtml ("</?font[^>]*>", "", Content)
Content=zxj_replacehtml ("</?b[^>]*>", "", Content)
Content=zxj_replacehtml ("</?u[^>]*>", "", Content)
Content=zxj_replacehtml ("</?i[^>]*>", "", Content)
Content=zxj_replacehtml ("</?strong[^>]*>", "", Content)
Clearhtml=content
End Function
Function zxj_replacehtml (PATRN, strng,content)
IF IsNull (content) Then
Content= ""
End IF
Set regEx = New RegExp ' establishes a regular expression.
Regex.pattern = Patrn ' Set mode.
Regex.ignorecase = True ' setting ignores character capitalization.
Regex.global = True ' Sets global availability.
Zxj_replacehtml=regex.replace (CONTENT,STRNG) ' performs a regular match
End Function
%>