<%
'**********************************
'Función: RemoveHref_A (HTMLSTR)
'Argumentos: htmlstr, cadena a eliminar
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: elimine todos los hipervínculos en la cadena
'Ejemplo: <%= removeHref_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 = izquierda (htmlstr, str1-1) y derecha (htmlstr, len (htmlstr) -len (izquierda (htmlstr, str2))))
Htmlstr = reemplazar (htmlstr, "</a>", "")
RemoverHref_a = htmlstr
Próximo
Función final
%>
Retire regularmente todos los hipervínculos en cadenas
<%
'**********************************
'Función: RERMOVEHREF (HTMLSTR)
'Argumentos: htmlstr, cadena a eliminar
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: elimine todos los hipervínculos en cuerdas por regular
'Ejemplo: <%= REGREMOVEHREF ("<ahref =/abc/h.html> test </a>")%>
'**********************************
FunctionRemoveHref (HTMLSTR)
Setra = newregexp
ra.ignorecase = True
ra.global = verdadero
ra.pattern = "<a [^>]+> (.+?) <// a>"
RERMOVEHREF = RA.REPLACE (HTMLSTR, "$ 1")
Función final
%>