Dicas Técnicas BufaloInfo

ASP : Gerando uma planilha do excel a partir do ASP

Alguns truques simples podem ser utilizados para gerar uma planilha do Excel através do ASP :

O Excel consegue interpretar código HTML. Assim sendo, ele é capaz de entender uma tabela em HTML.

A propriedade contenttype do objeto Response indica o tipo de conteúdo que será gerado. O padrão é geração de HTML, mas podemos alterar o contenttype e dizer que estamos gerando uma planilha do excel.

Desta forma, alterando o contenttype, podemos simplesmente imprimir uma tabela, em HTML mesmo, exatamente como sempre fazemos, e o browser irá se encarregar de abrir o excel para interpreta-la. Veja a instrução :

Response.ContentType = "application/vnd.ms-excel"

Além disso podemos pedir ao browser que grave o arquivo, como um download, ao invés de exibi-lo. Para isso devemos adicionar um item ao cabeçalho http que estaremos enviando para o client. Veja :

Response.AddHeader "content-disposition","attachment;filename=entidades.xls"

Observe que isso tudo serve não apenas para o Excel, mas também outros tipos de arquivo, bastando apenas alterar o contentType

ASP : Manipulando Coleções

A instrução for/each do VB também pode ser utilizada em VBScript e costuma resolver grandes problemas.

O objetivo desta instrução é manipular uma coleção de informações. Assim sendo, ao invés de manipular item a item pode-se montar um laço para manipular todos.

A síntaxe é :

for each <variavel> in <colecao>
<codigo>
next

O código que existir entre o for/each e o next será executado para cada item existente na colecao. A cada execução a variável utilizada no FOR recebe um item da coleção. Assim sendo, dentro do código do FOR utiliza-se essa variável para realizar operações diversas.

Veja algumas coleções existentes :

Request.Form - Variáveis transmitidas via POST
Request.Querystring - Variáveis transmitidas via GET
Applications.Contents - Variáveis de aplicação
Session.Contents - Variáveis de sessão
Request.Servervariables - Variáveis do servidor
RecordSet.Fields - Campos de um Recordset
Command.Parameters - Parametros de um objeto COMMAND

Existem ainda diversas outras.

Veja um pequeno exemplo :

for each x in rs.fields
response.write("<td>")
response.write(x.name)
response.write("</td>")
next

Estas poucas linhas de código estão montando o título de uma tabela com o nome de todos os campos da base de dados, independentemente de quantos sejam.

ASP : Ler chaves de registry

Mais uma vez utilizando o Windows Script Host podemos realizar leituras de chaves de registry através do ASP. Isso nos trás um novo e seguro local para guardarmos strings de conexão com o banco. Veja um exemplo :

<%
Set objShell = CreateObject("WScript.Shell")
Response.Write “Registry Value: “ & objShell.RegRead("RegistryPath") %>

O caminho do registry deve ser montado utilizando a \ como delimitadora e deve começar em um dos roots válidos, que são codificados com 4 letras, da seguinte forma :

HKCU - HKEY_CURRENT_USER
HKLM - HKEY_LOCAL_MACHINE
HKCR - HKEY_CLASSES_ROOT

ASP : Gravando erros no log do sistema operacional

O WSH (Windows Script HOST) fornece um objeto SHELL que pode ser utilizado através do ASP e um dos recursos que ele possui é gravar log de erros no evet viewer do sistema operacional.

Veja um exemplo :

<% Set objShell = CreateObject("WScript.Shell")
ObjShell.LogEvent 1, "Ocorreram erros no arquivo Login.asp."
Set objShell = Nothing %>

O primeiro parâmetro é o tipo de log sendo gravado :

0 – Successo
1 – Erro
2 – Warning
4 – Informação

O segundo parâmetro é a mensagem sendo gravada.

ASP : Download de arquivos

Em alguns artigos que temos aqui no site mostramos como utilizar o response.binarywrite para imprimir uma imagem que esteja contida no banco de dados.

Essa técnica do binarywrite é utilizada também para a realização de downloads. É claro que se você simplesmente fizer um link para o arquivo o download ocorre, mas para você ter maior controle sobre o processo de donwload, como por exemplo, registrar o volume de downloads e controlar quem pode ou não fazer o download, você pode provocar o download via código asp, utilizando o binarywrite exatamente como no exemplo da recuperação de imagens.

Mas fica um problema : O nome do arquivo. O browser irá entender como nome do arquivo a página que está sendo chamada, com extensão e tudo (.asp). Para mudar isso é necessário adicionar um cabeçalho na resposta enviada ao browser, veja um pequeno trecho de exemplo :

<%
fn = 'MyDoc.doc'
Response.AddHeader 'Content-Disposition','attachment;filename=' & fn
...
response.binarywrite(binarydata)
%>

Desta forma podemos especificar o nome do arquivo que será downloadeado.

ASP : Facilitando a edição no notepad

Mesmo que não gostemos, é inevitável que uma hora ou outra tenhamos que resolver um problema usando o notepad.

Uma das principais reclamações a respeito dele é não ter numeração de linha, o que dificulta a localização de erros.

Mas existe uma solução simples para esse problema : O notepad possui uma combinação de teclas, ctrl+g, que abre uma caixa nos perguntando um número de linha. Ao indicarmos o número o notepad posiciona o cursor nesta linha.

Solução rápida para identificar onde encontra-se um erro dentro de uma página ASP sem ter que ficar contando as linhas.

ASP : Upload sem componentes

ASP : Um pouco mais sobre o pooling de conexões

É muito fácil encontrar no site da Microsoft informações sobre pooling de conexões com ODBC. Chega a dar a impressão para alguns que só existe pooling de conexões com ODBC.

Mas existe sim pooling de conexões com OLEDB e em geral ele é habilitado por default. A questão é onde encontrar informações técnicas mais precisas sobre ele. Veja :

O artigo contido em http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnproasp/html/enablingconnectionpooling.asp deixa claro que o ASP por default não utiliza connection pooling quando está fazendo acessos diretos a banco, sendo necessário a alteração das chaves de registry indicadas pelo artigo para que o connection pooling possa ser habilitado.

Já neste outro artigo http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q191572& observa-se que as múltiplas formas de se utilizar os objetos do ADO podem, sim, afetar o pooling de conexões. Por exemplo, conexões criadas implicitamente não entram no pooling.

O artigo http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q320700& fala sobre um bug de 100% de uso de CPU que o pooling pode causar eventualmente. É bom estar atento...

Por sua vez o artigo em http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q237977& explica as configurações de timeout do pooling. Achei este especialmente importante pois a conexão (login/logout) é um processo pesado e através da configuração dessas chaves de registry foi possível reduzir o volume de logins e logouts que estavam ocorrendo em um determinado ambiente, tudo devido a ajustes sobre quanto tempo uma conexão seria mantida antes de ser descartada.

O artigo em http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q245267& fala sobre o controle do pooling (em geral desativa-lo, o que não é uma boa idéia) via string de conexão).

Por sua vez o artigo em http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnmdac/html/pooling2.asp é bem detalhista nas explicações sobre o pooling tanto com ODBC como com OLEDB.

Espero que estes artigos ajudem a controlar um pouco melhor o pooling de conexões via ADO, configurando o registry corretamente e deixando que ele faça o restante.

ASP : Utilizando ContentBase e ContentLocation para simplificar e-mails em HTML

Ao enviarmos e-mails em HTML é comum montarmos uma tag de imagem da seguinte forma :

<IMG SRC=HTTP://www.microsoft.com/graphs/Feb1998/21Jul98/today.gif>

Porém a utilização do endereço completo desta forma muitas vezes se torna incômoda, especialmente quando o endereço está sujeito a mudanças, o que poderia gerar uma grande alteração em todo o código HTML.

Uma forma de contornar isso para o envio de e-mails em HTML é utilizando as propriedades contentBase e contentLocation.

No exemplo acima contentLocation pode ser definida da seguinte forma :

objNewMail.ContentLocation = "HTTP://www.microsoft.com/graphs/Jul1998/21Jul98"

O que permite que a imagem seja montada apenas com o nome do arquivo :

<IMG SRC=today.gif>

ContentLocation pode ainda receber um caminho relativo :

objNewMail.ContentLocation = "Jul1998/21Jul98/"

Neste caso o caminho absoluto é definido por ContentBase :

objNewMail.ContentBase = "HTTP://www.microsoft.com/graphs/"

Esses recursos facilitam para que você possa enviar por e-mail o mesmo código em HTML que tem em uma página do seu site. Normalmente as páginas do site são montadas com endereços relativos, então ao enviar seu código por e-mail você pode configurar o contentlocation para que os endereços relativos se tornem absolutos em relação a seu site e o e-mail possa ser lido.

ASP : Attachando imagens em e-mails em HTML

Uma forma típica de enviar e-mails em HTML é montar o código HTML com imagens apontando para URLs no seu próprio site.

Porém isso faz com que o e-mail só possa ser lido on-line, pois as imagens terão que ser recuperadas do seu site quando o e-mail for aberto. Para resolver este problema temos o método attachURL do objeto newmail.

Esse método funciona de forma semelhante ao método attachFile, mas permite que o arquivo attachado seja utilizado dentro do código HTML, como se houvesse uma URL para ele.

Veja abaixo um exemplo obtido no site da Microsoft. Observe como a imagem é referenciada a partir da tag IMG :

Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<meta name=""GENERATOR"" content=""Microsoft FrontPage 2.0"">"
HTML = HTML & "<title>Exchange CDO Example</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "Exchange CDO "
HTML = HTML & "Sample<img src=CDO.gif>"
HTML = HTML & ""
HTML = HTML & "CDO for NTS allows an easy way to send mail."
HTML = HTML & "This example shows how the content can be an HTML page"
HTML = HTML & "which allows you to send rich text and inline graphics."
HTML = HTML & "</body>"
HTML = HTML & "</html>"

myMail.AttachURL "D:\wwwroot\CDO.gif", "CDO.gif"
myMail.From = "Example@microsoft.com"
myMail.To = "Someone@microsoft.com"
myMail.Subject = "Sample Message"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send