Código fuente de 'Elimina tags HTML 2.asp'
<html>
<head>
<title>Elimina Tags Html 2 - 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 2</font></b></center><br><br>
<%
Function TagEater(strPage)
Do
pos = 1
StartTag = InStr(pos,strPage,"<")
If StartTag > 0 Then
pos = StartTag
If UCase(mid(strPage,StartTag,7)) = "<SCRIPT" Then
ScriptEnd = Instr(StartTag,UCase(strPage),"</SCRIPT>")
strPage = Left(strPage,StartTag-1) & Right(strPage,Len(strPage)-ScriptEnd-8)
Else
EndTag = InStr(pos,strPage,">")
If EndTag > 0 Then
strPage = Left(strPage,StartTag-1) & Right(strPage,Len(strPage)-EndTag)
Else
strPage = Left(strPage,StartTag-1)
Exit Do
End If
End If
Else
Exit Do
End If
Loop
TagEater = strPage
End Function
If Request.Form.Count > 0 Then
thePage = Request.Form("thePage")
'*** replace line feeds with <br>'s so it displays in browser correctly
Response.Write Replace(TagEater(thePage),CHR(13),"<br>")
Response.End
End If
%>
<HTML>
<BODY>
<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method=post>
Esta función permite eliminar el código HTML de un texto de entrada. Introduce
el código HTML y pulsa "Enviar consulta".<p>
<textarea name=thePage cols=50 rows=20></textarea>
<br><input type=submit>
</p>
</form>
<p><font face="Arial" size="1">Fuente: <a href="http://www.actionjackson.com/">
http://www.actionjackson.com/</a> </font></p>
</BODY>
</HTML>