Funções muito uteis asp - sql injection - data por extenso - enviar email com cdonts

Tenho um post com algumas dessas funções já, inclui mais algumas muito uteis

Fiquem a vontade!!!

<%
Function valida_dados (input)
lixo = array ("select", "insert", "update", "delete", "drop", "–", "'")
ValidaDados = true
for i = lBound(lixo) to ubound(lixo)
if (instr(input,lixo(i)) <> 0) then
ValidaDados = False
exit function
end if
next
end function

Function limpa_lixo(input)
lixo = array ("select" ,"drop" ,";" ,"–" ,"insert" ,"delete" ,"xp_")
for i = lBound(lixo) to uBound(lixo)
input = replace(input, lixo(i), "") next
limpa_lixo = input
end Function

Function tira_aspas(texto)
tira_aspas = replace(texto ,"'" , "")
End function

function mandar_email(de, para, mensagem, assunto)
Set email = CreateObject("CDONTS.NewMail")
email.From = de email.To = para
email.BodyFormat = 0
email.Subject = "Enviado do site - " & assunto
email.Body = mensagem
On Error Resume Next
email.Send Set email = Nothing end function

function data_completa ()
dia_semana = WeekdayName(Weekday(Date))
dia = day(date)
mes = MonthName(Month(Date))
ano = year(date)
response.write(dia_semana & ", " & dia & " de " & mes & " de " & ano)
end function

Como usar as benditas

'Retorna valor booleano - true ou false
ValidaDados(variavel)

'Retorna o texto sem as palavras perigosas
response.write(limpa_lixo(variavel))

'Retorna o texto sem as aspas simples
tira_aspas(variavel)

'Envia email via cdonts
mandar_email(request.Form("de"), request.Form("para"), request.Form("mensagem"), request.Form("assunto"))

'Retorna a data por extenso, só que vc antes tem que setar o formato de hora do pais q vc está, como estamos no brasil 1046

session.LCID = 1046 data_completa () %>

qq coisa gritem Abraços