Podemos agregar algunos hipervínculos en ASP, pero ¿qué debemos hacer si no los necesitamos después de agregarlos? Ahora echemos un vistazo a los métodos para eliminar todos los hipervínculos de ASP. Si desea saber, consulte ellos.
<%
'**********************************
'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 ("<a href =/abc/h.html> test </a>")%>
'**********************************
Función removeHref_a (htmlstr)
Dim n, str1, str2, str3, str4
Htmlstr = lcase (htmlstr)
Para n = 1 a Ubound (dividido (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 ("<a href =/abc/h.html> test </a>")%>
'**********************************
Función REGREMOVEHREF (HTMLSTR)
Establecer RA = nuevo regexp
ra.ignorecase = True
ra.global = verdadero
ra.pattern = "<a [^>]+> (.+?) <// a>"
RERMOVEHREF = RA.REPLACE (HTMLSTR, "$ 1")
Función final
%>
Lo anterior es todo el contenido de este artículo. Espero que el contenido de este artículo sea de ayuda para el estudio o el trabajo de todos. ¡También espero apoyar el nuevo canal de tecnología incorrecto!