Código fuente de 'Elimina tags HTML 4.asp'
<html>
<head>
<title>Elimina tags HTML 4 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<center><b><font face="Arial" size="3">Elimina tags HTML 4</font></b></center><br><br>
Esta función permite eliminar el código HTML de un texto de entrada.<br>
<br>
<b>Ejemplo: </b>EliminaHTML(<b>gráfica6.asp</b>)<br>
<b>Resultado: </b>
<%
response.write EliminaHTML("<b>gráfica6.asp</b>")
%>
<%
Function EliminaHTML(ByRef asHTML)
Dim loRegExp ' Regular Expression Object
' Create built in Regular Expression object
Set loRegExp = New RegExp
' Set the pattern to look for HTML tags
loRegExp.Pattern = "<[^>]*>"
' Return the original string stripped of HTML
EliminaHTML = loRegExp.Replace(asHTML, "")
' Release object from memory
Set loRegExp = Nothing
End Function
%>
</body></html>