<%
'***********************************
'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: <%= removerhref_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 = 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 ("<Ahref =/abc/h.html> test </a>")%>
'***********************************
FunctionReGremoveHref (htmlstr)
Setra = newRegexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
RegremoveHref = Ra.Replace (htmlstr, "$ 1")
Função final
%>