<%
'*******************************
'Fonction: supprimehref_a (htmlstr)
'Arguments: htmlstr, chaîne à supprimer
'Auteur: Alixi
'Date: 2007/7/12
'Description: supprimez tous les hyperliens dans la chaîne
'Exemple: <% = retirehref_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 = instr (str1, htmlstr, ">")
Htmlstr = gauche (htmlstr, str1-1) & droite (htmlstr, len (htmlstr) -len (gauche (htmlstr, str2))))
Htmlstr = remplacer (htmlstr, "</a>", "")
Supprimerhref_a = htmlstr
Suivant
Finition de fin
%>
Retirez régulièrement tous les hyperliens en chaînes
<%
'*******************************
«Fonction: Regremovehref (htmlstr)
'Arguments: htmlstr, chaîne à supprimer
'Auteur: Alixi
'Date: 2007/7/12
'Description: supprimez tous les hyperliens en cordes par régulière
'Exemple: <% = regremovehref ("<href = / abc / h.html> test </a>")%>
'*******************************
FunctionRegreMoveHref (HTMLSTR)
Setra = newregexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>] +> (. +?) <// a>"
Regremovehref = ra.replace (htmlstr, "1 $")
Finition de fin
%>