Funcion para evitar codigo HTML

[Ascariz]

Sigo todavia con el maldito foro y hay alguna funcion para que los usuarios no puedan meter codigo html

Prueba
<a href="http://www.ascariz.es" target="_black" >www.ascariz.es</a>

[3pies]

Código:

<%
Function SinEquitetas(texto)
	texto=replace(texto,"<","&_lt;")
	texto=replace(texto,">","&_gt;")
	SinEtiquetas=texto
End function

'Y muestras el texto del mensaje del foro, así:
response.write SinEtiquetas(rs("comentario"))
%>

Eliminar el subrayado (_) de color rojo. Lo he tenido que poner, porque sino, el foro cambia el código.

[Ascariz]

de moemnto me sirve pero lo que me gustaria seria alguna funcion un poco mas compleja para no insertar en la bbdd

[3pies]

A ver si esta te gusta más (añade las dos líneas anteriores a esta función)...

Código:

<%
'Caracteres a reemplazar, puestos
'por nuestros usuarios
Function CambiarTexto(texto)
texto=lcase(texto)
texto=replace(texto,"á","&aacute;")
texto=replace(texto,"à","&agrave;")
texto=replace(texto,"Á","&Aacute;")
texto=replace(texto,"À","&Agrave;")
texto=replace(texto,"é","&eacute;")
texto=replace(texto,"è","&egrave;")
texto=replace(texto,"É","&Eacute;")
texto=replace(texto,"È","&Egrave;")
texto=replace(texto,"í","&iacute;")
texto=replace(texto,"ì","&igrave;")
texto=replace(texto,"Í","&Iacute;")
texto=replace(texto,"Ì","&Igrave;")
texto=replace(texto,"ó","&oacute;")
texto=replace(texto,"ò","&ograve;")
texto=replace(texto,"Ó","&Oacute;")
texto=replace(texto,"Ò","&Ograve;")
texto=replace(texto,"ú","&uacute;")
texto=replace(texto,"ù","&ugrave;")
texto=replace(texto,"Ú","&Uacute;")
texto=replace(texto,"Ù","&Ugrave;")
texto=replace(texto,"ñ","&ntilde;")
texto=replace(texto,"Ñ","&Ntilde;")
texto=replace(texto,vbCrLf,"<br>")
texto=replace(texto,Chr(34),""")
texto=replace(texto,"'",""")
texto=replace(texto,"“",""")
texto=replace(texto,"”",""")
texto=replace(texto,"«",""")
texto=replace(texto,"»",""")
texto=replace(texto,"--","")
texto=replace(texto,"select","")
texto=replace(texto,"insert","")
texto=replace(texto,"update","")
texto=replace(texto,"delete","")
texto=replace(texto,"drop","")
texto=replace(texto,"create","")
texto=replace(texto,"join","")
texto=replace(texto,"-shutdown","")
texto=replace(texto,"""""","")
texto=replace(texto," or ","")
texto=replace(texto," and ","")
CambiarTexto=texto
End function
%>

Con el tema de las sustituciones de letras centuadas, yo lo uso, pero solo a la hora de mostrarlos en pantalla. En la BD grabo el texto con acentos (como lo escribió el usuario).

[Ascariz]

si pero si el usuario coge una parte de un menu y la pega y le da a insertar saldri la tabla dibujada con los dichoso lick.

como se puede hacer para que salga como aqui, en este foro ?
<table width="100%" border="0" cellspacing="1" cellpadding="0" class="vinculo_menu">

<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#2A65BD" height="15" class="letra_menu_grande">COMUNIDAD</td>
</tr>
</table></td>
</tr>
<tr>

<td bgcolor="#FFFFFF"><a href="../default.asp">Inicio</a></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="../comunidad/actualidad.asp">Actualidad campista </a></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="../comunidad/asociaciones.asp">Asociaciones y clubes</a></td>

</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="../foros/">Foro campista </a></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="../comunidad/intercambios.asp"><img src="../_imagenes/ico_menu_new.gif" alt="&iexcl;nueva seccion!" width="12" height="12" border="0" align="absmiddle">Intercambios</a></td>
</tr>
<tr>

<td bgcolor="#FFFFFF"><a href="../comunidad/kedadas.asp"><img src="../_imagenes/ico_menu_new.gif" alt="&iexcl;nueva seccion!" width="12" height="12" border="0" align="absmiddle">Kedadas</a> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="../comunidad/trucoteca.asp">Trucoteca</a></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="../comunidad/viajes.asp">Viajes y rutas</a> </td>

</tr>
</table>

[Ascariz]

el codigo que estoy haciendo es algo asi, pero lo tendria que hacer con los <a > </a> ...... y todos los demas

fuction cambiarhtml
mensaje=replace(mensaje,"<","&_lt;")
mensaje=replace(mensaje,">","&_gt;")
mensaje=replace(mensaje,"""","")
mensaje=replace(mensaje,"'","''")
mensaje=replace(mensaje,"<br/>","")
mensaje=replace(mensaje,"<ul>","")
mensaje=replace(mensaje,"</ul>","")
mensaje=replace(mensaje,"<ol>","")
mensaje=replace(mensaje,"</ol>","")
mensaje=replace(mensaje,"<li>","")
mensaje=replace(mensaje,"</li>","")
mensaje=replace(mensaje,"<b>","")
mensaje=replace(mensaje,"</b>","")
end function

[AlZuwaga]

Server.HTMEncode(variableQueContieneHTML)

[Ascariz]

al final me quedo con esta que me bienen mejor

Function MirarHTML(mensaje)
mensaje=replace(mensaje,"""","")
mensaje=replace(mensaje,"'","''")
mensaje=replace(mensaje,"&","&#38")
mensaje=replace(mensaje,"/","&#47")
mensaje=replace(mensaje,":","&#58")
mensaje=replace(mensaje,";","&#59")
mensaje=replace(mensaje,"<","&#60")
mensaje=replace(mensaje,">","&#62")
mensaje=replace(mensaje,"\","&#92")
mensaje=replace(mensaje,"select","")
mensaje=replace(mensaje,"insert","")
mensaje=replace(mensaje,"update","")
mensaje=replace(mensaje,"delete","")
mensaje=replace(mensaje,"drop","")
mensaje=replace(mensaje,"create","")
mensaje=replace(mensaje,"join","")
mensaje=replace(mensaje,"-shutdown","")
mensaje=replace(mensaje,"""","")
MirarHTML = mensaje
end Function