USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página