<％
'*******************************
'機能：removehref_a（htmlstr）
'引数：HTMLSTR、削除される文字列
著者：アリクシ
'日付：2007/7/12
'説明：文字列内のすべてのハイパーリンクを削除します
'例：<％= removehref_a（ "<ahref =/abc/h.html> test </a>"）％>
'*******************************
functionRemoveHref_a（HTMLSTR）
dimn、str1、str2、str3、str4
htmlstr = lcase（htmlstr）
forn = 1toubound（split（htmlstr、 "<a"））
str1 = instr（htmlstr、 "<a"）
str2 = stron（str1、htmlstr、 ">"）
htmlstr = left（htmlstr、str1-1）＆右（htmlstr、len（htmlstr）-len（左（htmlstr、str2）））
htmlstr =置換（htmlstr、 "</a>"、 ""）
removehref_a = htmlstr
次
エンド機能
％>
文字列のすべてのハイパーリンクを定期的に削除します
<％
'*******************************
'機能：RegremoveHref（HTMLSTR）
'引数：HTMLSTR、削除される文字列
著者：アリクシ
'日付：2007/7/12
'説明：定期的に文字列のすべてのハイパーリンクを削除します
'例：<％= regremovehref（ "<ahref =/abc/h.html> test </a>"）％>
'*******************************
functionregremovehref（htmlstr）
setra = newRegexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+>（。+？）<// a>"
Regremovehref = ra.replace（htmlstr、 "$ 1"）
エンド機能
％>