<% '************************************************************ ' Programação ASP ' Área do Site: Comum ' Programador(es) : Fábio Salles ' Data de Criação : 17-02-2000 ' ' Ultima Atualização: 17-02-2000 ' Programador : Fábio Salles '*******************MADE*INTERNET*SERVICES******************** ' Funcao para substituir acentos na busca, SuperAsp.com.br ' ******************************************************** Function busca_inteligente(str) Dim v v = lcase(str) v = Replace(v,"%","") v = Replace(v,"'","") v = Replace(v,"""","") v = replace(v, "ó" , "o") v = replace(v, "ò" , "o") v = replace(v, "ô" , "o") v = replace(v, "õ" , "o") v = replace(v, "ö" , "o") v = replace(v, "á" , "a") v = replace(v, "à" , "a") v = replace(v, "â" , "a") v = replace(v, "ã" , "a") v = replace(v, "ä" , "a") v = replace(v, "é" , "e") v = replace(v, "è" , "e") v = replace(v, "ê" , "e") v = replace(v, "ú" , "u") v = replace(v, "ù" , "u") v = replace(v, "û" , "u") v = replace(v, "ü" , "u") v = replace(v, "í" , "i") v = replace(v, "ì" , "i") v = replace(v, "ç" , "c") v = replace(v,"a","[a,á,à,ã,â,ä]") v = replace(v,"e","[e,é,è,ê]") v = replace(v,"i","[i,í,ì]") v = replace(v,"o","[o,ó,ò,õ,ô,ö]") v = replace(v,"u","[u,ú,ù,û,ü]") v = replace(v,"c","[c,ç]") v = replace(v,"'","['']") Prepara_busca = v End Function '************************************************************ ' Função que trata "strings com caminho" para insercao no banco ' Recebe uma string ' Retorna uma string '************************************************************ function trataImagemBd( entrada ) if isOk( entrada ) then trataImagemBd = "'" & Right( entrada , Len( entrada ) - InstrRev( entrada , "\" ) ) & "'" else trataImagemBd = "''" end if end function '************************************************************ ' Função que trata "strings" para insercao no banco ' Recebe uma string ' Retorna uma string '************************************************************ function trataStringBd( entrada ) if isOk( entrada ) then saida = Replace( entrada, """", "``" ) saida = Replace( saida, "'", "`" ) saida = "'" & saida & "'" trataStringBd = saida else trataStringBd = "NULL" end if end function '************************************************************ ' Função que trata "strings" a partir do banco ' Recebe uma string ' Retorna uma string '************************************************************ function trataStringHtm( entrada ) if isOk( entrada ) then saida = Replace( entrada, "``", """" ) saida = Replace( saida, "`", "'" ) saida = Replace( saida, vbcrlf, "
" ) trataStringHtm = trim( saida ) else trataStringHtm = "" end if end function function trataStringTextBox( entrada ) if isOk( entrada ) then saida = Replace( entrada, "``", """ ) saida = Replace( saida, "`", "'" ) saida = Replace( saida, vbcrlf, "
" ) trataStringTextBox = trim( saida ) else trataStringTextBox = "" end if end function '************************************************************ ' Função que verifica se uma string é válida ' Recebe uma string ' Retorna um booleano '************************************************************ function isOk( entrada ) on error resume next isOk = ( not isNull( entrada ) ) and ( entrada <> "" ) if ( Err.Number <> 0 ) then isOk = false end if Err.Clear end function '************************************************************ ' Função que trata "strings" a partir do banco ' Recebe uma string ' Retorna uma string '************************************************************ function TrataStringText( entrada ) if isOk( entrada ) then saida = Replace( entrada, "``", """" ) saida = Replace( saida, "`", "'" ) TrataStringText = trim( saida ) else TrataStringText = entrada end if end function '************************************************************ ' Função que trata inteiros para insercao no banco ' Recebe um inteiro ' Retorna um inteiro '************************************************************ function trataInteiroBd( numero ) if isNumeric( numero ) then trataInteiroBd = Replace( numero, ",", "." ) else trataInteiroBd = 0 end if end function '************************************************************ ' Função que trata booleanos para insercao no banco ' Recebe um inteiro ' Retorna um inteiro '************************************************************ function trataBoolBd( entrada ) if entrada = "1" then trataBoolBd = "1" else trataBoolBd = "0" end if end function '************************************************************ ' Função que abrevia o if then else ' Recebe um critério e duas condições ' Retorna a condição '************************************************************ function iif( Criterio, Verdadeiro, Falso ) if Criterio then iif = Verdadeiro else iif = Falso end if end function '************************************************************ ' Função que transforma uma condiçao em 1 ou 0 ' Recebe um critério ' Retorna um inteiro '************************************************************ function BoolToInt( Criterio ) if Criterio then BoolToInt = 1 else BoolToInt = 0 end if end function '************************************************************ ' Função que trata datas para insercao no banco ' Recebe um data ' Retorna um data '************************************************************ function trataDateBd( strData ) pos1 = Instr(1, strData, "/", 1) pos2 = Instr(4, strData, "/", 1) dia = Mid(strData, 1, pos1 -1) mes = Mid(strData, pos1+1, pos2-pos1-1) ano = Right(strData, 4) trataDateBd = ano & "/" & mes & "/" & dia end function '************************************************************ ' Função que trata datas para apresentação na tela ' Recebe um data ' Retorna um data ' Por: Fabiano C. (16 de junho de 2003) '************************************************************ function trataDateScreen( strData ) dia = day(strData) mes = month(strData) ano = year(strData) trataDateScreen = dia & "/" & mes & "/" & ano end function '************************************************************ ' Função que trata "strings" para insercao no banco ' Recebe uma string ' Retorna uma string '************************************************************ function trataStringBdSemAspas( entrada ) if isOk( entrada ) then saida = Replace( entrada, """", "``" ) saida = Replace( saida, "'", "`" ) trataStringBdSemAspas = saida else trataStringBdSemAspas = "NULL" end if end function %>