|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: 4 funcoes para garantir seus dados no sql
|
 |
|
|
|
Postada em 2/10/2003 por ^HEAVY-METAL^
<%
''funcao para garantir que os dados nao irao gerar erros na string sql
function sqlencode(valor)
validos = ""
validos = validos & "abcdefghijlmnopqrstuvxzwyk" ''de A até Z
validos = validos & "1234567890" ''de 0 até 9
validos = validos & "áàéèíìóòúùäëïöüâêîôû" 'acentos
validos = validos & "!@#$%&*()+}{?/:;><|\,._=ºª® " ''caracteres especiais e espaco
for i = 1 to len(valor)
if instr(1,validos,lcase(mid(valor,i,1))) then
sqlencode = sqlencode & mid(valor,i,1)
end if
next
end function
response.write sqlencode(request("texto"))
''funcao para garantir que o formato do dinherio correto para gravacao no sql
function sqlmoney(valor)
if isnumeric(valor) then
sqlmoney = replace(replace(valor,".",""),",",".") '' basicamente troca o ponto por vazio e a virgula por ponto
end if
end function
response.write sqlmoney(request("money"))
''funcao para garantir que o formato do data sera correto para gravacao no sql
function sqldate(valor)
if isdate(valor) then
dia = day(valor)
mes = month(valor)
ano = year(valor)
sep = "/"
sqldate = ano&sep&mes&sep&day
end if
end function
response.write sqldate(request("data"))
''funcao para garantir que o formato do inteiro sera correto para gravacao no sql
function sqlint(valor)
if isnumeric(valor) then
if valor >=0 and valor<= 999999999 then
sqlint = replace(replace(valor,".",""),",","")
end if
end if
end function
response.write sqlint(request("inteiro"))
%>
T+,
|
|
|
|
|
