Wir können einige Hyperlinks in ASP hinzufügen, aber was sollten wir tun, wenn wir sie nach dem Hinzufügen nicht brauchen? Schauen wir uns nun die Methoden an, um alle Hyperlinks von ASP zu entfernen. Wenn Sie es wissen möchten, wenden Sie sich bitte an sie.
<%
'*********************************
'Funktion: REMEHREF_A (HTMLSTR)
'Argumente: htmlstr, String, die entfernt werden soll
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Entfernen Sie alle Hyperlinks in der Zeichenfolge
'Beispiel: <%= removeHref_a ("<a href =/abc/h.html> test </a>")%>
'*********************************
Funktion REMEHREF_A (HTMLSTR)
Dim N, Str1, Str2, str3, str4
Htmlstr = lase (htmlstr)
Für n = 1 bis ubound (split (htmlstr, "<a"))
STR1 = instr (htmlstr, "<a")
STR2 = Instrument (str1, htmlstr, ">")
Htmlstr = links (htmlstr, str1-1) & rechts (htmlstr, len (htmlstr) -len (links (htmlstr, str2)))
Htmlstr = ersetzen (htmlstr, "</a>", "")
REMEHREF_A = HTMLSTR
Nächste
Endfunktion
%>
Entfernen Sie regelmäßig alle Hyperlinks in Saiten
<%
'*********************************
'Funktion: RegremoveHref (htmlstr)
'Argumente: htmlstr, String, die entfernt werden soll
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Entfernen Sie alle Hyperlinks in Saiten durch reguläre
Beispiel: <%= herremoveehref ("<a href =/abc/h.html> test </a>")%>
'*********************************
Funktion herremoveehref (htmlstr)
Setzen Sie RA = New Regexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
RegremoveHref = ra.replace (HTMLSTR, "$ 1")
Endfunktion
%>
Das obige ist der gesamte Inhalt dieses Artikels. Ich hoffe, dass der Inhalt dieses Artikels für das Studium oder die Arbeit eines jeden hilfreich sein wird. Ich hoffe auch, den falschen neuen Technologiekanal zu unterstützen!