Codificar

Recentemente precisei de uma função em ASP para gerar chaves em um sistema de intranet. Criei a função abaixo que resolveu o meu problema. O Codigo é bem simples e esta comentado, bons estudos .

Como mencionei anteriormente, vou explicar uma função que combina ASP e JavaScrip para exibir uma mensagem alert(); seguido de um history.back(); e mata o script ASP, segue: sub jsback(byval msg) with response if .buffer then .clear .write "<"&"script type=""text/javascript"">" & vbcrlf if msg <> "" then .write "alert(""" & msg & """);" & vbcrlf .write "history.back();" & vbcrlf .write " " & vbcrlf .end end with end sub

Em uma chuva forte semanas a traz meu modem queimou, como o eliminador de pilhas não queimou deduzimos que a descarga foi pela linha telefônica o que fez queimar também a minha placa de rede, fica aparecendo que uma cabo de rede esta desconectando mesmo com tudo conectado.   Minha placa mãe, que não me lembro o modelo agora, tem a rede onboard, mas não tive maiores problemas foi só colocar uma placa de rede nova e desativar a placa onboard que estava com problemas, o mais difícil é esperar o pessoal da assistência do modem dar a palavra final, isto sim é doloroso, já se passaram uns 15 dias é nada.   Fica ai a dica, em chuvas com descargas elétricas lembre-se de desligar tudo, a antena, a linha, o cabo da TV a cabo, o MP3 player, ops, este não precisa.

Varias vezes temos que verificar se um valor existe no banco de dados, um exemplo seria para evitar a inclusão de um valor repetido. Ficar checando isto a toda hora não é muito bom, então criei a função tem(sql) nela eu crio um recordset, executo o SQL que foi passado a função e retorno o numero de vezes que o valor foi encontrado.   'verifica se uma consulta existe e retorna a quantidade de vezes function tem(sql)    set veri_tem = abredb.Execute(sql)    tem = veri_tem.recordcount    if veri_tem.state <> 0 then veri_tem.close end function   Para usar basta checar se o valor é maior que zero.   if tem("select nome from usuarios where nome = 'Ronaldo'") > 0 then jsback "Usuário já cadastrado."   Acabei usando outra função, mas pelo nome já deu pra perceber a utilidade. Estou meio sem tempo agora, no próximo post eu falo sobre a "jsback".