Función addslashes para ASP (VBScript)

11 noviembre, 2010

Esta función sería la equivalente a su homónima de PHP.


function addslashes(unsafeString)
dim regEx
set regEx = new RegExp
with regEx
.Global = true
.IgnoreCase = true
.Pattern = "([\000\010\011\012\015\032\042\047\134\140])"
end with
addslashes = regEx.replace(unsafeString, "\$1")
set regEx = nothing
end function