<%
'*********************************
'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: <%= REMEHREF_A ("<AHREF =/ABC/H.HTML> Test </a>")%>
'*********************************
FunktionsRemoveHref_A (HTMLSTR)
Dimn, Str1, str2, str3, str4
Htmlstr = lase (htmlstr)
FORN = 1TOUBOART (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 ("<Ahref =/abc/h.html> test </a>")%>
'*********************************
FunktionRegremoveHref (HTMLSTR)
Setra = newRegexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
RegremoveHref = ra.replace (HTMLSTR, "$ 1")
Endfunktion
%>