正規一致 (正規表現) モードは、データの一致と置換のコピー コードを実行します。 コードは次のとおりです。
<%
'/* 関数名：Zxj_ReplaceHtml ClearHtml
'/* 関数言語: VBScript 言語
'/* 関数：クリアファイルHTML形式関数
'/* 渡すパラメータ: 内容 (注: クリアする必要がある内容)
'/* 関数作成者: Zhang Xiaojun (古都のおとぎ話) QQ:382511147
'/* 関数の説明: データの一致と置換のための正規一致 (正規表現) パターン
関数 ClearHtml(コンテンツ)
Content=Zxj_ReplaceHtml(&#[^>]*;, , コンテンツ)
Content=Zxj_ReplaceHtml(</?marquee[^>]*>, , コンテンツ)
Content=Zxj_ReplaceHtml(</?object[^>]*>, , Content)
Content=Zxj_ReplaceHtml(</?param[^>]*>, , コンテンツ)
Content=Zxj_ReplaceHtml(</?embed[^>]*>, , コンテンツ)
Content=Zxj_ReplaceHtml(</?table[^>]*>, , Content)
Content=Zxj_ReplaceHtml( ,,Content)
Content=Zxj_ReplaceHtml(</?tr[^>]*>, , コンテンツ)
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=Zxj_ReplaceHtml(</?script[^>]*>, , コンテンツ)
Content=Zxj_ReplaceHtml((javascript|jscript|vbscript|vbs):, , コンテンツ)
Content=Zxj_ReplaceHtml(on(マウス|終了|エラー|クリック|キー), , コンテンツ)
Content=Zxj_ReplaceHtml(<//?xml[^>]*>, , コンテンツ)
Content=Zxj_ReplaceHtml(<//?[az]+:[^>]*>, , コンテンツ)
Content=Zxj_ReplaceHtml(</?font[^>]*>, , コンテンツ)
Content=Zxj_ReplaceHtml(</?b[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?u[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?i[^>]*>,,Content)
Content=Zxj_ReplaceHtml(</?strong[^>]*>,,コンテンツ)
ClearHtml=コンテンツ
終了機能
関数 Zxj_ReplaceHtml(パターン, 文字列,コンテンツ)
IF IsNull(コンテンツ) then
内容=
終了IF
Set regEx = New RegExp ' 正規表現を作成します。
regEx.Pattern = patrn ' パターンを設定します。
regEx.IgnoreCase = true ' 大文字と小文字を無視するように設定します。
regEx.Global = True ' グローバルな可用性を設定します。
Zxj_ReplaceHtml=regEx.Replace(content,strng) '正規のマッチングを行う
終了機能
%>