<p> <ahref = '1.html'> 11111 </a> </p> <p> 2222 </p>
<p> <ahref = '2.html'> 3333 </a> </p> <p> 44444 </p>
想得到的结果是：
<p> 11111 </p> <p> 2222 </p> <p> 3333 </p> <p> 4444 </p>
<％
functionregexreplace（ssource、patrn、replstr）
Dimregex、str1
str1 = ssource
setRegex = newRegexp
regex.pattern = patrn
regex.ignorecase = true
regex.global = true
regexReplace = regex.replace（str1、Replstr）
エンド機能
DIMC1、C2
c1 = <p> <ahref = '1.html'> 11111 </a> </p> <p> 2222 </p>
<p> <ahref = '2.html'> 3333 </a> </p> <p> 44444 </p>
c2 = regexReplace（c1、<a。*？> | </a>）
Response.Write（C2）
％>