Entfernen Sie alle Tags im HTML -Code
Die Codekopie lautet wie folgt:
<%
'*********************************
'Funktion: REMEHTML_A (STRTEXT)
'Argumente: Strtext, String, die verarbeitet werden soll
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Entfernen Sie alle Tags im HTML -Code
Beispiel: <%= REMEHTML_A ("<B> Willkommen bei Alixixi </b>")%>
'*********************************
FunktionsReMoveHtml_a (Strtext)
Dimnpos1
Dimnpos2
npos1 = instr (strtext, "<")
Dowhilenpos1> 0
npos2 = instr (npos1+1, strtext, ">")
IFNPOS2> 0Then
strText = links (Strtext, NPOS1-1) & Mid (Strtext, NPOS2+1)
Anders
Beenden
Endif
npos1 = instr (strtext, "<")
Schleife
REMEHTML_A = Strtext
Endfunktion
%>
Entfernen Sie alle Tags im HTML -Code
Die Codekopie lautet wie folgt:
<%
'*********************************
'Funktion: removeHtml_b (strtext)
'Argumente: Strtext, String, die verarbeitet werden soll
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Entfernen Sie alle Tags im HTML -Code
Beispiel: <%= removeHtml_b ("<b> Willkommen bei Alixixi </b>")%>
'*********************************
FunktionsremoveHtml_b (strtext)
Dimregex
SetRegex = newRegExp
Regex.pattern = "<[^>]*>"
Regex.global = true
RemoveHtml_b = regex.replace (strtext, "")
Endfunktion
%>
Entfernen Sie alle Tags im HTML -Code
Die Codekopie lautet wie folgt:
<%
'*********************************
'Funktion: removeHtml_c (strtext)
'Argumente: Strtext, String, die verarbeitet werden soll
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Entfernen Sie alle Tags im HTML -Code
Beispiel: <%= removeHtml_c ("<b> Willkommen bei Alixixi </b>")%>
'*********************************
FunktionsReMoveHtml_c (Strtext)
Dimtaglist
Taglist = ";!-;! DocType; a; Akronym; Adresse; Applet; Gebiet; B; Base; BaseFont;" & _
"BgSound; Big; Blockquote; Körper; Br; Button; Caption; Mitte; CITE; Code;" & _