
19/10/2007, 03:30
|
 | | | Fecha de Ingreso: noviembre-2005
Mensajes: 403
Antigüedad: 19 años, 5 meses Puntos: 0 | |
Re: Eliminar HTML ESte es mi codigo y me da este error por que es ?
en PHP hay una funcion que se llama: strip_tags($nombre); La hay en ASP ????
Código:
texto = "hola < http://www.dominio.com/images/esp/cab_envio_email.jpg >123< fdew fndew d > fds fds fd"
'texto_aux = "hola < http://www.dominio.com/images/esp/cab_envio_email.jpg >123< fdew fndew d > fds fds fd"
'texto_aux = "hola 123< fdew fndew d > fds fds fd"
'texto_aux = "hola 123 fds fds fd"
texto = replace(texto,"<","<")
texto = replace(texto,">",">")
texto_aux = texto
response.Write(InStr(texto_aux,"<")& "<br />")
tiene = cint(InStr(texto_aux,"<"))
while tiene > 0
response.Write("<br />"&texto_aux& "<br />")
pos1 = cint(InStr(texto_aux,"<"))
pos2 = cint(InStr(texto_aux,">"))
response.Write(pos1 & " " & pos2)
texto_aux = Mid(texto,1,pos1-1)
response.Write("<br />"&texto_aux)
texto_aux = texto_aux & Mid(texto,pos2+4,len(texto))
response.Write("<br />"&texto_aux)
tiene = InStr(texto_aux,"<")
wend
response.Write("<br />"&texto_aux)
|