Nous pouvons ajouter des hyperliens dans ASP, mais que devons-nous faire si nous n'en avons pas besoin après les avoir ajoutés? Jetons maintenant un coup d'œil aux méthodes pour éliminer tous les hyperliens d'ASP. Si vous voulez savoir, veuillez vous référer à eux.
<%
'*******************************
'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 ("<a href = / abc / h.html> test </a>")%>
'*******************************
Fonction supprimehref_a (htmlstr)
Dim N, Str1, Str2, Str3, Str4
Htmlstr = lCase (htmlstr)
Pour n = 1 à Ubound (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
Fonction finale
%>
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 ("<a href = / abc / h.html> test </a>")%>
'*******************************
Fonction regremovehref (htmlstr)
Définir RA = nouveau regexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>] +> (. +?) <// a>"
Regremovehref = ra.replace (htmlstr, "1 $")
Fonction finale
%>
Ce qui précède est tout le contenu de cet article. J'espère que le contenu de cet article sera d'une aide à l'étude ou au travail de chacun. J'espère également soutenir la mauvaise chaîne de nouvelles technologies!