¿Cómo borrar etiquetas HTML en sentencias SQL?

db="data.mdb"

set conn=server.createobject("Adodb.Connection")

connstr="Provider=Microsoft. Jet.OLEDB.4.0; Fuente de datos="amp; Server.MapPath(db)

conn.open connstr

set rs=server.createobject("adodb.recordset")

sql="seleccionar * de la tabla"

rs.open sql, conn, 1, 3

hacer mientras rs.eof=false

rs("field one")=Html2Ubb(rs("field one")) 'La función Html2Ubb se utiliza aquí para convertir los datos del campo en texto sin formato y luego escribirlos en la base de datos.

rs("Campo 2")=Html2Ubb(rs("Campo 2"))

rs("Campo 3")=Html2Ubb(rs("Campo 2"))

rs.update

rs.movvenext

bucle

rs.close

set conn=nada

Función pública Html2Ubb(ByVal strContent)

En caso de error, reanudar siguiente

Si Len(strContent) gt 0 Entonces

Dim re<; /p>

Establecer re = Nueva expresión regular

re.IgnoreCase = True

re.Global = True

'--Borrar script

Si CInt(ArrayCodes(0)) = 1 entonces

re.Pattern = "(lt;s script(. ?) lt;\/scriptgt;)"

strContent = re.Replace(strContent, "")

End If

'--Borrar todos los iframes

If CInt(ArrayCodes(1) ) = 1 Entonces

re.Pattern = "(lt;s script(.Pattern = "(lt;iframe(. ?) lt;\/iframegt;)"

strContent = re.Replace(strContent, "")

End If

'--Borrar todos los objetos

If CInt(ArrayCodes(2)) = 1 Entonces

re.Pattern = "(lt;iframe(. ?) lt;\/iframegt;)"