Podemos adicionar alguns hiperlinks no ASP, mas o que devemos fazer se não precisarmos deles depois de adicioná -los? Agora, vamos dar uma olhada nos métodos para remover todos os hiperlinks do ASP. Se você quiser saber, consulte a eles.
<%
'***********************************
'Função: Remonehref_a (htmlstr)
'Argumentos: htmlstr, string a ser removida
'Autor: Alixi
Data: 2007/7/12
'Descrição: Remova todos os hiperlinks na string
'Exemplo: <%= removehref_a ("<a href =/abc/h.html> test </a>")%>
'***********************************
Função 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 = instrum (str1, htmlstr, ">")
Htmlstr = esquerda (htmlstr, str1-1) e direita (htmlstr, len (htmlstr) -len (esquerda (htmlstr, str2)))
Htmlstr = substituir (htmlstr, "</a>", "")
Removahref_a = htmlstr
Próximo
Função final
%>
Remova regularmente todos os hiperlinks em strings
<%
'***********************************
'Função: RegremoveHref (htmlstr)
'Argumentos: htmlstr, string a ser removida
'Autor: Alixi
Data: 2007/7/12
'Descrição: Remova todos os hiperlinks em strings por regular
'Exemplo: <%= RegremoveHref ("<a href =/abc/h.html> test </a>")%>
'***********************************
Função RegremoveHref (htmlstr)
Definir ra = novo regexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
RegremoveHref = Ra.Replace (htmlstr, "$ 1")
Função final
%>
O exposto acima é todo o conteúdo deste artigo. Espero que o conteúdo deste artigo seja de ajuda para estudar ou trabalhar de todos. Eu também espero apoiar o novo canal de tecnologia errada!