Pular para o conteúdo principal

Postagens

Mostrando postagens de 2007

Gerador de senhas aleatorias (chave)

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 .

Função ASP + JS para exibir uma mensagem e voltar

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

Como é triste ficar sem internet

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.

Função para verificar quantos registros através de uma SQL

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".  

Site ASP em vários idiomas

Tive que implementar um site aqui em mais de um idioma, bom, a solicitação era pra ser em Inglês e Português, mas deixei pronto para inclusão de um novo idioma.   Em PHP há um monte de jeitos de fazer tal proeza, mas em ASP eu não achei nada muito bom, então tive que fazer eu mesmo.   O Esquema é o seguinte, no meu arquivo de inclusão que eu uso em chamo no site inteiro eu coloquei o código abaixo.   session("lang") = "pt" if r("lang") <> "" then session("lang") = r("lang") Na primeira linha eu seto o idioma padrão a sessão, na segunda linha eu verifico se estou recebendo uma solicitação pra mudar o idioma padrão. A função r() foi explicada no post anterior que nada mais é que um request() com alguns tratamentos.   Vale ressaltar que esquemas para verificar qual o idioma do visitante não devem ser usado em todos os casos, pois os user-agents irão catalogar seu site no idioma deles e não no idio

Tratando tudo que recebe via formulário

Atualmente tenho codificado bastante em ASP, que não é minha linguagem favorita, mas o programador não pode ficar preso a linguagem. Tenho criado uma serie de funções para facilitar minha vida, uma muito importante é a que trata os dados recebidos dos formulários contra injeção de SQL (SQL Injection), não vou falar sobre o assunto, pois é muito falado na web . Em ASP para receber algum dado de um formulário utilizamos request.form(nome_do_campo), então criei a função abaixo para ser usada em todos os pontos de recepção de dados. function rform(s)   'Recebe dados via form   rform = request.form(""&s&"")   'trata os dados recebidos contra injeção de SQL   'troca as aspas simples por aspas duplas   rform = replace(rform, "'", """")   'repete os replace para o que vc quiser cortar end function Usando a função rform(nome_do_campo) você evita esquecer de tratar algum campo. É isso pessoal, pesquisando sobre o assu

Metas Tags para seu site

Recentemente andei pesquisando muito sobre as tags meta que existem, são milhares, então resolvi fazer uma lista das mais importantes seguidas de uma breve explicação. <meta name="title" content="TÍTULO DA PÁGINA" /> Fornece o título da página. Máximo 60 caracteres <meta name="description" content="Descrição da Página" /> Fornece a descrição da página. Máximo 255 caracteres. <meta name="keywords" content="palavras separadas por uma virgula" /> Fornece as palavras chaves do site que serão usadas para catalogar a página, mas não vá colocando as melhores palavrinhas aqui (ex: sexo) pois os buscadores cruzam esta informação com o conteúdo da página. Máximo de 60 palavras <meta name="URL" content=" http://www.site.com " /> Fornece a URL principal do site. <meta name="language" content="portuguese" /> Fornece a linguagem da página, muito importante para as buscas

WinSCP Portable, SFTP pelo pen drive

No post anterior falei sobre o Notepad++ Portable , outro programa bom para deixar no pen drive e o WinSCP Portable , um cliente SFTP gratuito muito útil quando se esta fora de sua estação de trabalho.

Notepad++Portable, meu editor preferido

Atualmente tenho feito bastante serviços no escritório de clientes, o que pode ser um problema se você não leva um notebook. Ainda bem que conheci o portableapps.com , em expecial o Notepad++Portable , que esta quebrando um galho enorme na hora de consertar alguns arquivos. Fica ai a dica, use as adaptações do portableapps.com e bombe o seu pendrive.

Configurando o PC para rodar ASP

Escolhi ASP como linhagem visando facilitar a vida dos iniciantes. Não é o propósito deste blog ficar comparando linguagens, mas na minha opinião, o ASP tem uma curva de aprendizagem menor, alem de ser bem fácil rodar ASP no Windows. Para rodar ASP no Windows você deve instalar o PWS (windows 98) ou IIS (Windows 2000 e superiores), e esta instalação é bem simples pois ambos já vem no CD de instalação do sistema operacional correspondente. O Caminho para instalar o IIS é: Painel de controle => Adicionar ou remover programas => Adicionar/remover componentes do Windows e marcar a opção referente ao IIS (Internet Information Services) os dados serão copiados do CD do Windows e pronto, você já pode rodar páginas ASP na sua maquina. Para certificar-se de que a instalação foi feita corretamente basta digitar o endereço http://localhost/ na barra de endereço do seu navegador de internet preferido ( ).

Criando algo útil

Acho que criar uma postagem para dizer porque ando meio sumido eu já criei, espero que esta seja a ultima, mas desta vez vai ser meio diferente. A minha idéia sempre foi ir desenvolvendo um projeto de exemplo e ir documentando todas as fazer aqui no blog, mas não estava dando certo, pois para um projeto de exemplos eu não ficava muito motivado a codificá-lo e devido à falta de tempo o blog foi ficando empoeirado. Bom, deixando o passado para traz, digo agora o que vou fazer. Usarei o simples layout criado para o exemplo, veja ele aqui , e vou implementar nele um tipo de galeria de fotos, onde os visitantes, apos um pequeno cadastro, poderão mandar suas fotos, definindo quais categorias ela pertence, o projeto terá o nome de SGF, as iniciais de Super Galeria de Fotos, e pretendo ir aprimorando-o e postando os passos de sua codificação. Não queria bater nesta tecla novamente, mas criar este blog foi à forma que encontrei para poder apreender mais; não sou muito bom para escrever, portant