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

Apagando arquivos com um script ASP

apagar / remover / deletar / removendo / deletando

Set Objeto = Server.CreateObject("Scripting.FileSystemObject")
Objeto.DeleteFile Server.MapPath("trabalhos_enviados/" & rs_trabalhos.fields.item("arquivo").value)
Set Objeto = Nothing

Como fazer para que arquivos comuns disponibilizados para download não sejam abertos pelo navegador

<%
'mostra via servidor que o response.addheader será aplicado para download
response.AddHeader "Content-Type","application/x-msdownload"

'mostramos o arquivo que será feito o download, independente de sua extensão
'usaremos no exemplo: arquivo.pdf
response.AddHeader "Content-Disposition","attachment; filename=arquivo.pdf"
Response.Flush

Response.Buffer = True
Const adTypeBinary = 1

'leremos abaixo o arquivo em modo binário através do ADODB
Set binario = Server.CreateObject("ADODB.Stream")
binario.Open
binario.Type = adTypeBinary

'Informe aqui o caminho completo do arquivo no servidor
' Se preferir, use Server.MapPath("arquivo.pdf")
binario.LoadFromFile Server.MapPath("arquivo.pdf")
Response.BinaryWrite binario.Read

binario.Close
Set binario = Nothing
Response.Flush
%>

Não utilize query string do tipo arquivo.asp?nomedoarquivo=arquivo.extensão, pois utilizando querystring, qualquer usuário poderá mudar o nome e copiar vários arquivos do seu site, como o global.asa, banco de dados e etc. Utilize métodos de segurança ao utilizar o código asp acima.

Nota do André: Ainda não testei isso

Fonte: http://www.aspbrasil.com.br/conteudo/detalhesCompleta.aspx?codConteudo=3422&Secao=DICAS

Script em ASP para envio de e-mail autenticado usando o componente CDO SYS

<%
‘##————————————————–
‘## Envio de Emails pelo SMTP Autênticado usando CDO
‘##————————————————–
‘# Mais informações sobre as possiveis bibliotecas são encontradas no link:
‘# http://msdn.microsoft.com/library/en-us/dncdsys/html/cdo_roadmap.asp
‘#
‘# Documentação do CDO pode ser encontrada no link:
‘# http://msdn.microsoft.com/library/en-us/dnanchor/html/collabdataobjects.asp
‘#
‘# Para ler sobre as possiveis configurações do objeto de configuração, acesse:
‘# http://msdn.microsoft.com/library/en-us/cdosys/html/_cdosys_schema_configuration.asp
‘# http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_imessage_interface.asp
‘#
‘# IMPORTANTE
‘# O codigos de erros estão documentados em:
‘# http://msdn.microsoft.com/library/en-us/cdosys/html/_cdosys_error_codes.asp
‘#
‘# Para ler sobre a comparação do CDO com CDONTS acesse:
‘# http://support.microsoft.com/default.aspx?scid=kb;en-us;177850
‘##————————————————–

‘ Definindo uma variavel auxiliar
sch = “http://schemas.microsoft.com/cdo/configuration/”

‘ Criando o objeto de configuração do CDO
Set cdoConfig = Server.CreateObject(“CDO.Configuration”)

‘ Definindo as configurações
cdoConfig.Fields.Item(sch & “sendusing”) = 2
cdoConfig.Fields.Item(sch & “smtpauthenticate”) = 1
cdoConfig.Fields.Item(sch & “smtpserver”) = “smtp.seudominio.com”
cdoConfig.Fields.Item(sch & “sendusername”) = “email=seudominio.com”
cdoConfig.Fields.Item(sch & “sendpassword”) = “suasenha”
cdoConfig.fields.update

‘ Criando o objeto de msg do CDO
Set cdoMessage = Server.CreateObject(“CDO.Message”)

‘ Associando as configurações ao obj Mensagem
Set cdoMessage.Configuration = cdoConfig

‘ Definido variaveis da msg
cdoMessage.From = “email@seudominio.com”
cdoMessage.To = “DESTINATARIO@DominioDestinatario.com”
cdoMessage.Subject = “TITULO DO E-MAIL”

‘ Utilize esta opção caso deseje definir o e-mail de resposta
‘ cdoMessage.ReplyTo = “EMailDeResposta@DominioDeResposta.com”

cdoMessage.TextBody = “Escreva aqui o texto do seu e-mail”

cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

Fonte: www.hostnet.com.br

Conexão com banco SQL Server em Perl – Linux

http://www.linuxjournal.com/article/5732

Redirecionamento em Perl

Redirecionar o script em Perl para outra página :

print “Location: resposta.htm\n\n”;