Escrevendo o caracter aspas duplas por função

O caracter aspas duplas (“) pode criar alguns problemas de escrita em determinadas situações. Na expressão abaixo, por exemplo:

senhanova=replace(senhanova,”‘”,” “)

A variável está sendo tratada para substituir possíveis incidências de aspa simples por um espaço. Ótimo. Se você fizer o mesmo com aspas duplas, porém:

senhanova=replace(senhanova,”"”,” “)

O comando vai ser interpretado como se as primeiras aspas fossem introduzir o caracter a ser substituido, e as segundas (que são o próprio caracter) estivessem fechando a introdução. As terceiras sobrariam e causariam um erro de sintaxe.

Para resolver problemas desse tipo, use o comando desta forma:

senhanova=replace(senhanova,chr(34),” “)

O chr(34) escreve as aspas duplas. Testado e funciona.

Exemplo de uso de Case

<%

select case cidade
case "Belo Horizonte"
response.Write("Capital de Minas Gerais.")
case "São Paulo"
response.Write("Capital de São Paulo.")
case "Rio de Janeiro"
response.Write("Capital de Rio de Janeiro.")
case "Vitória"
response.Write("Capital de Espírito Santo.")
case else
response.Write("Não é uma capital de um estado do Sudeste.")
end select

%>

Fonte: http://www.forumweb.com.br/artigos/artigos.php?action=file&id=368

Substituindo caracteres em mensagens enviadas por e-mail

Encontrei esta relação de substituição de caracteres em um script e achei interessante. Provavelmente é para evitar mensagens truncadas, visto que estava em um script de envio de e-mail. Nunca cheguei a usar.

corpo_msg = explica
corpo_msg = replace(corpo_msg, Chr(13),”<BR>”)
corpo_msg = replace(corpo_msg, Chr(10),”")
corpo_msg = replace(corpo_msg, “á”, “á”)
corpo_msg = replace(corpo_msg, “é”, “é”)
corpo_msg = replace(corpo_msg, “í”, “í”)
corpo_msg = replace(corpo_msg, “ó”, “ó”)
corpo_msg = replace(corpo_msg, “ú”, “ú”)
corpo_msg = replace(corpo_msg, “Á”, “Á”)
corpo_msg = replace(corpo_msg, “É”, “É”)
corpo_msg = replace(corpo_msg, “Í”, “Í”)
corpo_msg = replace(corpo_msg, “Ó”, “Ó”)
corpo_msg = replace(corpo_msg, “Ú”, “Ú”)
corpo_msg = replace(corpo_msg, “Ô, “Ô)
corpo_msg = replace(corpo_msg, “Õ”, “Õ”)
corpo_msg = replace(corpo_msg, “ã”, “ã”)
corpo_msg = replace(corpo_msg, “õ”, “õ”)
corpo_msg = replace(corpo_msg, “ç”, “ç”)
corpo_msg = replace(corpo_msg, “Ç”, “Ç”)
corpo_msg = replace(corpo_msg, “à”, “à”)
corpo_msg = replace(corpo_msg, “ê”, “ê”)
corpo_msg = replace(corpo_msg, “â”, “â”)
corpo_msg = replace(corpo_msg,chr(34), “"”)
explica= corpo_msg

Escapando / substituindo caracteres

Substituir caracteres é importante para evitar ataques de SLQ Inject ou a postagem de trechos de códigos HTML / Javascript em formulários, que podem causar resultados inesperados em páginas onde este conteúdo seria exibido e comandos não autorizados de administração do banco.

A sintaxe é:

Replace(Request.form(“campo”),”‘”,”`”)

O primeiro símbolo entre haspas é o que deve ser substituído, e o segundo é o que irá substituí-lo. Escapar haspas simples e duplas é útil para evitar a inserção de comandos SQL no banco, e escapar os sinais de menor(<) e maior (>) evita a inserção de tags em geral.

Response.Buffer

Response.Buffer = True, significa que a página será armazenada em buffer, ou seja, só será enviada ao client quando ele for toda processada.

Você pode deixar como false também, a cada processamento feito, será enviado ao browser. Imagine um loop de segundo em segundo mande um response.write, o browser receberá cada comando individualmente e não tudo somente ao final.

fonte: www.aspbrasil.com.br

Função DateDiff: obtendo a diferença entre duas datas ou dois horários

Sintaxe :

tempototal = DateDiff(“n”, primeirahora, segundahora)

Será atribuido à variável tempototal o intervalo de tempo contido entre as variáveis primeirahora e segunda hora ( segundahora – primeirahora ), em minutos. Entende-se que o conteúdo das variáveis esteja em formato hora.

A unidade de medida do resultado (minutos, no exemplo) é determinada pelo parâmetro “n”. Outros formatos possíveis são:

“h” = horas
“s” = segundos
“yyyy” = Pela lógica devem ser anos, mas esse eu ainda não testei…

String de conexão com banco MySQL em ASP

Set Conexao = Server.CreateObject(“ADODB.Connection”)
strConexao = “driver=MySQL ODBC 3.51 Driver;server=mysql.seudominio.com.br;uid=nomeusuario;pwd=senha;_database=nomedobanco”
Conexao.Open strConexao

Editando registro no banco através de um script ASP

editar / modificar / modificando / update

ComandoSql = "update tabela set campo = 'valor' where ID=valor"

string_conexao.execute(ComandoSql)

Inserção em banco de dados usando ASP (simples e direto)

inserir / inserindo

ComandoSql = "INSERT INTO tb_trabalhos(aluno, arquivo, instituicao, curso, data, observacoes)"
ComandoSql = ComandoSql & "VALUES('" & varnome & "','" & vararquivo & "','"
ComandoSql = ComandoSql & varlocalcurso &"','"
ComandoSql = ComandoSql & varcurso & "','"
ComandoSql = ComandoSql & vardata & "','"
ComandoSql = ComandoSql & varobservacoes &"')"
MM_cn_banco_STRING.execute(ComandoSql)

Apagando registros de um banco em um script ASP

removendo / deletando / apagar / remover / deletar

query_deletar = “delete from tb_trabalhos where ID = ” & request.Form(“ID_remover”)
Set deleta = Server.CreateObject(“ADODB.Command”)
deleta.ActiveConnection = MM_cn_banco_STRING
deleta.CommandText = query_deletar
deleta.Execute
deleta.ActiveConnection.Close