ASP は HTML タグを自動的に完成させて自動的に閉じます。これにより、ASP は HTML タグでコンテンツをインターセプトし、ページの変形を防ぐことができます。次のようにコードをコピーします。
関数 closeHTML(strContent)
Dim arrTags、i、OpenPos、ClosePos、re、strMatchs、j、Match
re = 新しい正規表現を設定します
re.IgnoreCase = True
re.Global = True
arrTags = Array(p、div、span、テーブル、ul、フォント、b、u、i、h1、h2、h3、h4、h5、h6)
i = 0 から UBound(arrTags) へ
オープンポジション = 0
閉じる位置 = 0
re.Pattern = /< + arrTags(i) + ( [^/</>]+|)/>
strMatchs = re.Execute(strContent) を設定します。
strMatchs の各一致について
オープンポス = オープンポス + 1
次
re.Pattern = /</ + arrTags(i) + />
strMatchs = re.Execute(strContent) を設定します。
strMatchs の各一致について
閉じる位置 = 閉じる位置 + 1
次
j = 1 の場合 OpenPos - ClosePos へ
strContent = strContent + </ + arrTags(i) + >
次
次
closeHTML = strContent
終了機能