This topic is locked
<%@ Language=JScript %> <font face="MS Gothic"> <% //Criar uma variável. dim strGreeting //Definir a saudação. strGreeting = "Olá mundo!"; //Imprimir a saudação usando o objeto Response ASP. Response.Write(strGreeting + "<BR>"); //Imprimir também a saudação usando o método <%=. %> <%=strGreeting%> </font>
Para criar páginas ASP, use um editor de texto como o Bloco de notas e salve a página com a extensão .asp em vez de .htm. A extensão de nome de arquivo .asp diz para o IIS enviar a página pelo mecanismo ASP antes de enviá-la a um cliente. (Observação: na caixa de diálogo Salvar como do Bloco de notas, quando Documento de texto (*.txt) é selecionado na caixa Salvar como tipo, a extensão .txt é automaticamente anexada ao nome do arquivo. Para evitar isso, selecione Todos os arquivos na caixa Salvar como tipo, digite o nome do arquivo completo Meu_arquivo.asp no campo Nome do arquivo e, em seguida, clique em Salvar.
Exemplo 1:
Este exemplo exibe uma saudação, a data e a hora atual. Para executá-lo, copie e cole o código a seguir em um arquivo vazio e salve-o no diretório x:\Inetpub\Wwwroot\Tutorial como Exemplo1.asp. Veja o exemplo com seu navegador digitando http://localhost/Tutorial/Exemplo1.asp na barra de endereços.
<%@ Language=vb script:
[code]
<%@ Language=JScript %>
<html>
<head>
<title>Exemplo 2</title>
</head>
<body>
<font face="MS Gothic">
<%
//Criar um variável.
var strTemp;
var font1, font2, font3, font, size;
//Definir a variável.
strTemp= "COMPRE MEU PRODUTO!";
fontsize = 0;
//Imprimir a seqüência 5 vezes usando o loop For...Next.
para (i = 1; i < 6; i++) {
//Fechar os delimitadores de script para permitir o uso de código HTML e <%=...
%>.
<table align=center><font size= <%=fontsize%>> <%=strTemp%> </font></table>
<%
fontsize = fontsize + i;
}
%>
<table align=center><font size=6><B> ELE AGITA! <B></font></table><BR>
</font>
</body>
</html>
Exemplo 3:
Surgem novos sites multilíngües na Web todos os dias, à medida que os negócios sentem a necessidade de oferecer seus produtos pelo mundo todo. Formatar data, hora e moeda para coincidir com a localidade do usuário é bom sinal de diplomacia.
No Exemplo 3, uma função predefinida exibe data e moeda na página ASP. A data e a moeda são formatadas para diferentes localidades usando a função GetLocale, a função SetLocale, a função FormatCurrencye a função FormatDateTime. As seqüências de identificação de localidade estão listadas no Locale ID Chart (Gráfico de identificação de localidade ) na MSDN. (Este exemplo não abrange a modificação de CodePage para exibir caracteres não europeus em sistemas operacionais europeus. Leia os tópicos em CodePage na documentação do IIS para obter mais informações.)
Observação: existem mais de 90 funções predefinidas em VBScript e elas estão bem definidas em Windows Script Technologies. Para exibir a documentação, selecione VBScript, selecione Documentação, selecione Referência sobre linguagem e selecione Funções.
Copie e cole o código a seguir no editor de texto e salve o arquivo como Exemplo3.asp no diretório x:\Inetpub\Wwwroot\Tutorial. Veja o exemplo com seu navegador digitando http://localhost/Tutorial/Exemplo3.asp na barra de endereços.
<%@ Language=VBScript %>
<html>
<head>
<title>Exemplo 3</title>
</head>
<body>
<font face="MS Gothic">
<H3>Obrigado pela compra. Imprimir esta página para seus registros.</H3>
<%
'Criar algumas variáveis.
dim saveLocale
dim totalBill
'Definir as variáveis.
saveLocale = GetLocale
totalBill = CCur(85.50)
'Para cada uma das localidads, formatar data e moeda
SetLocale("fr")
Response.Write"<B>Formatado para a França:</B><BR>"
Response.Write FormatDateTime(Data, 1) & "<BR>"
Response.Write FormatCurrency(totalBill) & "<BR>"
SetLocale("de")
Response.Write"<B>Formatado para a Alemanha:</B><BR>"
Response.Write FormatDateTime(Date, 1) & "<BR>"
Response.Write FormatCurrency(totalBill) & "<BR>"
SetLocale("en-au")
Response.Write"<B>Formatado para inglês - Austrália:</B><BR>"
Response.Write FormatDateTime(Date, 1)& "<BR>"
Response.Write FormatCurrency(totalBill) & "<BR>"
'Restaurar a localidade original
SetLocale(saveLocale)
%>
</font>
</body>
</html>
[code]
No navegador, você deve exibir o seguinte:
[QUOTE]
Obrigado pela compra. Imprimir esta página para seus registros.
Formatado para a a França:
vendredi 20 octobre 2000
85,50 F
Formatado para a Alemanha:
Freitag, 20. Oktober 2000
85,50 DM
Formatado para inglês - Austrália:
Friday, 20 October 2000
$85.50
[/QUOTE]
Exemplo 4:
As funções mais comuns usadas nos scripts ASP são aquelas que manipulam seqüências. As funções de seqüência de caracteres mais poderosas usam expressões regulares. Como as expressões regulares são difíceis de serem adaptadas, o Exemplo 4 mostra como substituir caracteres em uma seqüência de caracteres usando uma expressão de seqüência e uma expressão regular. Expressões regulares estão definidas em Windows Script Technologies. Para exibir a documentação, selecione VBScript, selecione Documentação e selecione Guia de expressões regulares.
Copie e cole o código a seguir no editor de texto e salve o arquivo como Exemplo4.asp no diretório x:\Inetpub\Wwwroot\Tutorial. Veja o exemplo com seu navegador digitando http://localhost/Tutorial/Exemplo4.asp na barra de endereços.
[code]
<%@ Language=VBScript %>
<html>
<head>
<title>Exemplo 4</title>
</head>
<body>
<font face="MS Gothic">
<H1>Alterando o endereço de um cliente</H1>
<%
'Criar algumas variáveis.
dim strString
dim strSearchFor ' como uma seqüência
dim reSearchFor ' como uma expressão regular
dim strReplaceWith
'Definir as variáveis.
strString = "Luisa Lima<BR>Av. Mar Azul, 100<BR>João Pessoa, PB<BR>98100<BR>800.555.1212<BR>"
' Usando um objeto de seqüência
strSearchFor = "Av. Mar Azul, 100<BR>João Pessoa, PB<BR>98100"
' Usando um objeto de expressão regular
Set reSearchFor = New RegExp
reSearchFor.Pattern = "Av. Mar Azul, 100<BR>João Pessoa, PB<BR>98100"
reSearchFor.IgnoreCase = False
strReplaceWith = "Rua dos Pinheiros, 555<BR>João Pessoa, PB<BR>98200"
'Verificar se existe strSearchFor ...
' usando um objeto de seqüência.
If Instr(strString, strSearchFor) Then
Response.Write "strSearchFor foi encontrado em strString<BR>"
Else
Response.Write "Fail"
End If
' usando um objeto de expressão regular.
If reSearchFor.Test(strString) Then
Response.Write "reSearchFor.Pattern foi encontrado em strString<BR>"
Else
Response.Write "Fail"
End If
'Substituir a seqüência de caracteres...
Response.Write "<BR>Original String:<BR>" & strString & "<BR>"
' usando um objeto de seqüência.
Response.Write "Seqüência de caracteres em que strSearchFor é substituído:<BR>"
Response.Write Replace(strString, strSearchFor, strReplaceWith) & "<BR>"
' usando um objeto de expressão regular.
Response.Write "Seqüência em que reSearchFor é substituído:<BR>"
Response.Write reSearchFor.Replace(strString, strReplaceWith) & "<BR>"
%>
</font>
</body>
</html>
No navegador, você deve exibir o seguinte:
Alterando o endereço de um cliente
strSearchFor foi encontrado em strString
reSearchFor.Pattern foi encontrado em strString
Seqüência original:
Luisa Lima
Av. Mar Azul, 100
João Pessoa, PB
98100
800.555.1212
Seqüência em que strSearchFor foi substituído:
Luisa Lima
Rua Pinheiros, 555
João Pessoa, PB
98200
800.555.1212
Seqüência em que reSearchFor foi substituído:
Luisa Lima
Rua Pinheiros, 555
João Pessoa, PB
98200
800.555.1212
Lição 2: Enviando informações em formulários
Um uso comum de aplicativos do servidor de intranet e Internet é aceitar a entrada do usuário implementando um formulário na página da Web. ASP inclui as duas coleções seguintes no objeto Request para ajudar a processar as informações do formulário: a coleção QueryString e a coleção Form.
Nesta lição, crie uma página HTML que aceite entradas do usuário em um formulário HTML e envie as entradas do usuário de volta ao servidor Web para a mesma página. O servidor Web exibe, em seguida, as entradas do usuário. Mais adiante neste módulo, use esse conhecimento sobre formulários para criar um aplicativo de livro de convidados que use scripts ASP. Para concluir esta lição, execute as seguintes tarefas:
- Exemplo 1 Exiba uma seleção de elementos de botão em um formulário.
- Exemplo 2 Exiba elementos de caixa de texto em um formulário, aceite as entradas do usuário do formulário e exiba as entradas do usuário na página da Web.
Os formulários podem conter muitos tipos diferentes de elementos para ajudar os usuários a inserir dados. Neste exemplo, há cinco elementos de formulário de entrada chamados botões. Há muitos tipos de botões incluindo botões de OPÇÃO, ENVIAR, REDEFINIR, CAIXA DE SELEÇÃO e TEXTO.
Depois que as informações são inseridas em um formulário, elas precisam ser enviadas ao aplicativo da Web. Quando um usuário clica no botão "Enviar" na página da Web, os dados do formulário são enviados do cliente para a página da Web listada no elemento ACTION da marca do formulário. Essa página da Web não precisa ser igual à página de chamada. Neste exemplo, a página da Web listada no elemento ACTION é a página de chamada, o que elimina a necessidade de chamar outra página.
Neste exemplo, METHOD="POST" é usado para enviar dados do navegador do cliente da Web para o servidor Web. Quando se usa METHOD="POST" em um formulário, os dados do usuário terminam na coleção Form do objeto Request.
Copie e cole o código a seguir no editor de texto e salve o arquivo como Botão.asp no diretório x:\Inetpub\Wwwroot\Tutorial. Veja o exemplo com seu navegador digitando http://localhost/Tutorial/Botão.asp na barra de endereços.
<%@ Language=VBScript %>
<html>
<head>
<title>Button Form</title>
</head>
<body>
<font face="MS Gothic">
<FORM NAME="Exemplo de botão" METHOD="POST" ACTION="botão.asp">
<H3>Computer Programming Experience:</H3>
<p>
<INPUT TYPE="RADIO" NAME= "choice" VALUE="Menos de 1 ano"> Menos de 1 ano.<BR>
<INPUT TYPE="RADIO" NAME= "choice" VALUE="1 a 5"> 1 a 5 anos.<BR>
<INPUT TYPE="RADIO" NAME= "choice" VALUE="Mais de 5"> Mais de 5 anos.<BR>
</p>
<p>
<INPUT TYPE="ENVIAR" VALUE="Enviar">
<INPUT TYPE="RESET" VALUE="Limpar formulário">
</p>
</form>
<%
'Verificar se a entrada já foi inserida.
dim strChoice
strChoice = Request.Form("choice")
If "" = strChoice Then
Response.Write "<P>(Nenhuma entrada ainda.)</P>"
Else
Response.Write "<P>Sua última opção foi <B>" & strChoice & "</B></P>"
End If
%>
</font>
</body>
</html>
No navegador, você deve exibir o seguinte:
Experiência em programação de computador:
(RADIO)Menos de 1 ano.
(RADIO)1 a 5 anos.
(RADIO)Mais de 5 anos.
(BOTAO)Enviar (BOTAO)Limpar Formulario
(Nenhuma entrada ainda.)
Exemplo 2: Elementos do formulário de entrada
Neste exemplo, existem três elementos de formulário de entrada chamados campos de texto e dois elementos de formulário de entrada chamados caixas de seleção. As caixas de seleção são diferentes dos botões de opção pois você pode selecionar mais de uma. Vamos precisar do botão padrão Enviar para enviar os dados de volta para o servidor.
Neste exemplo, METHOD=GET é usado para enviar dados do navegador do cliente da Web para o servidor da Web. Quando se usa METHOD=GET em um formulário, os dados do usuário terminam na coleção QueryString do objeto Request.
Consulte a barra de endereços depois de clicar em Enviar e veja os elementos do QueryString exibidos no final do URL.
Copie e cole o código a seguir no editor de texto e salve o arquivo como Texto.asp no diretório x:\Inetpub\Wwwroot\Tutorial. Veja o exemplo com seu navegador digitando http://localhost/Tutorial/Texto.asp na barra de endereços.
<%@ Language=VBScript %>
<html>
<head>
<title>Fomulário de texto e caixa de seleção</title>
</head>
<body>
<font face="MS Gothic">
<FORM NAME="TextCheckbox Example" METHOD="GET" ACTION="text.asp">
<H3>Preencha este formulário para obter informações sobre nossos produtos:</H3>
<p>
<table>
<tr>
<td><font face="MS Gothic">Nome (obrigatório)</td>
<td><INPUT TYPE="TEXT" NAME="name" VALUE="" SIZE="20" MAXLENGTH="150"></td>
</tr><tr>
<td><font face="MS Gothic">Empresa</td>
<td><INPUT TYPE="TEXT" NAME="company" VALUE="" SIZE="25" MAXLENGTH="150"></td>
</tr><tr>
<td><font face="MS Gothic">Email (obrigatório)</td>
<td><INPUT TYPE="TEXT" NAME="email" VALUE="" SIZE="25" MAXLENGTH="150"></td>
</tr>
</table>
</p>
<p>
Solicitando informações sobre nosso:<BR>
<INPUT TYPE="CHECKBOX" NAME= "info" VALUE="software">Software<BR>
<INPUT TYPE="CHECKBOX" NAME= "info" VALUE="hardware">Hardware <BR>
</p>
<p>
<INPUT TYPE="SUBMIT" VALUE="Enviar">
<INPUT TYPE="RESET" VALUE="Limpar formulário">
</p>
</form>
<%
'Verificar se a entrada já foi inserida.
dim strName, strEmail, strCompany, strInfo
strName = Request.QueryString("name")
strEmail = Request.QueryString("email")
strCompany = Request.QueryString("company")
strInfo = Request.QueryString("info")
'Exibir o que foi inserido.
If ("" = strName) OR ("" = strEmail) Then
Response.Write "<P>(Nenhuma entrada obrigatória foi inserida ainda.)</P>"
Else
Response.Write "<P>Your are " & strName
If Not ("" = strCompany) Then
Response.Write " from " & strCompany
End If
Response.Write ". <BR>Seu email é" & strEmail
If not ("" = strInfo) Then
Response.Write " e você gostaria de obter informações sobre " & strInfo & ".</P>"
End If
End If
%>
</font>
</body>
</html>
No navegador, você deve exibir o seguinte:
Preencha este formulário para obter informações sobre nossos produtos:
Nome (obrigatório) (CAIXA DE TEXTO)
Empresa (CAIXA DE TEXTO)
Email (obrigatório) (CAIXA DE TEXTO)
Solicitando informações sobre nosso:
(CHECKBOX) Software
(CHECKBOX) Hardware
(BOTAO)Enviar (BOTAO)Limpar Formulario
(Nenhuma entrada obrigatória foi inserida ainda.)
Lição 3: Criando um livro de convidados usando um banco de dados
Esta lição requer que você instale o Microsoft Access no seu sistema e não terá suporte plataformas de 64-bits enquanto o Access não for desenvolvido para plataformas de 64-bits.
A lição 3 desenvolve um aplicativo de livro de convidados. Os livros de convidados permitem que os visitantes do site da Web deixem informações como nomes, endereços de email e comentários. Nesta lição, depois de criar um banco de dados do Access, você executará as seguintes tarefas:
- Exemplo 1 Criar uma página ASP para conectar ao banco de dados usando somente o objeto Connection do ADO.
- Exemplo 2 Criar uma página ASP para conectar ao banco de dados usando o objeto Connection e o objeto Command juntos.
- Exemplo 3 Criar uma página ASP para exibir as informações do livro de convidados no banco de dados em um navegador.
Crie um banco do Access chamado LivroConvidados.mdb e salve-o em x:\Inetpub\Wwwroot\Tutorial. Crie uma tabela no banco de dados chamada LivroConvidados. Use a opção Criar tabela usando o modo estrutura no Access para adicionar os seguintes campos e propriedades:
------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------
Nome do campo | Tipo de dados | Propriedades gerais do campo
------------------------------------------------------------------------------------------------------------
FID | AutoNumeração | Tamanho=Inteiro longo, Novos valores=Incremento, Indexado=Sim(Duplicação não autorizada)
------------------------------------------------------------------------------------------------------------
FTB1| Texto | Tamanho do campo=255, Requerido=Não, Permitir comprimento zero=Sim, Indexado=Não
------------------------------------------------------------------------------------------------------------
FTB2 | Texto | Tamanho do campo=255, Requerido=Não, Permitir comprimento zero=Sim, Indexado=Não
------------------------------------------------------------------------------------------------------------
FTB3 | Texto | Tamanho do campo=255, Requerido=Não, Permitir comprimento zero=Sim, Indexado=Não
------------------------------------------------------------------------------------------------------------
FTB4 | Texto | Tamanho do campo=255, Requerido=Não, Permitir comprimento zero=Sim, Indexado=Não
------------------------------------------------------------------------------------------------------------
FMB1 | Memorando | Requirido=Não, Permitir comprimento zero=Sim
------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------
Criar uma página ASP para adicionar dados ao banco de dados do Access
Agora que você criou seu banco de dados, crie uma página ASP para conectar ao banco de dados e leia os dados de entrada usando o Microsoft ActiveX® Data Objects (ADO). O ADO é uma coleção de objetos com métodos e propriedades que pode manipular dados em quase todos os tipos de banco de dados. (Se estiver planejando usar os bancos de dados com freqüência, você deve adquirir um livro de referência do programador para o ADO. Somente o código ADO mais básico está ilustrado nos exemplos a seguir, o suficiente para abrir, ler e gravar em um banco de dados.)
Os dois exemplos seguintes produzem os mesmos resultados; entretanto, o primeiro exemplo usa apenas o objeto Connection e o segundo exemplo passa parte do trabalho para o objeto Command, que é muito mais poderoso. Compare os dois exemplos para verificar como os objetos se conectam. Assim que você se sentir seguro com os objetos, use uma referência do programador ADO para testar com outros métodos e propriedades.
Para consultar um exemplo de erro do ADO na sua página ASP, tente navegar pela página depois de renomear o banco de dados, depois de inserir um erro ortográfico na seqüência de caracteres ou depois de converter o banco de dados em somente leitura.
Exemplo 1: Usando apenas o objeto Connection do ADO
Copie e cole o código a seguir no seu editor de texto e salve o arquivo como LivroConvidados1.asp no diretório x:\Inetpub\Wwwroot\Tutorial. Veja o exemplo com seu navegador digitando http://localhost/Tut...oConvidados.asp na barra de endereços.
<%@ Language=VBScript %>
<html>
<head>
<title>Livro de convidados usando somente o objeto Connection</title>
</head>
<body>
<font face="MS Gothic">
<h2>Livro de convidados usando somente o objeto Connection</h2>
<%
If Not Request.QueryString("Message") = "True" Then
'Nenhuma informação foi inserida ainda, portanto, forneça o formulário.
%>
<p>
<FORM NAME="GuestBook1" METHOD="GET" ACTION="guestbook1.asp">
<table>
<tr>
<td><font face="MS Gothic">From:</td><td><INPUT TYPE="TEXT" NAME="From"></td>
</tr><tr>
<td><font face="MS Gothic">Email:</td><td><INPUT TYPE="TEXT" NAME="EmailAdd"></td>
</tr><tr>
<td><font face="MS Gothic">CC:</td><td><INPUT TYPE="TEXT" NAME="CC"></td>
</tr><tr>
<td><font face="MS Gothic">Assunto:</td><td><INPUT TYPE="TEXT" NAME="Assunto"></td>
</tr>
</table>
Mensagem:<br><TEXTAREA NAME="Memo" ROWS=6 COLS=70></TEXTAREA>
</p>
<p>
<INPUT TYPE="HIDDEN" NAME="Mensagem" VALUE="True">
<INPUT TYPE="SUBMIT" VALUE="Enviar informações">
</FORM>
</p>
<%
Else
O botão HIDDEN acima define a variável Mensagem como Verdadeiro.
‘Agora sabemos que os dados do formulário foram inseridos.
‘Obter dados do formulário. Vamos inseri-los no banco de dados.
'O Access não aceita alguns caracteres, como as aspas simples, portanto, codifique os
' dados usando o método HTMLEncode do objeto do servidor ASP.
dim strTB1, strTB2, strTB3, strTB4, strMB1, strCommand
strTB1 = Server.HTMLEncode(Request.QueryString("De"))
strTB2 = Server.HTMLEncode(Request.QueryString("EMail"))
strTB3 = Server.HTMLEncode(Request.QueryString("CC"))
strTB4 = Server.HTMLEncode(Request.QueryString("Assunto"))
strMB1 = Server.HTMLEncode(Request.QueryString("Memorando"))
Esta é uma seqüência de conexão. O ADO usa-a para conectar a um banco de dados por intermédio do driver do Access.
‘Ele precisa do nome do provedor do driver do Access e do nome do banco de dados do Access.
'As seqüências de conexão são ligeiramente diferentes, dependendo do provedor em uso,
' mas todas elas usam ponto-e-vírgula para separar variáveis.
'Se esta linha causar um erro, procure no Registro por
' Microsoft.JET para ver se sua versão é a 4.0.
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\InetPub\Wwwroot\Tutorial\livroconvidados.mdb;"
'Isto cria uma instância de um objeto Connection do ADO.
'Há outros quatro objetos ADO disponíveis, cada um com diferentes métodos e
'propriedades que permitem fazer praticamente tudo com os dados do banco de dados.
Set objConn = server.createobject("ADODB.Connection")
'O método Open do objeto Connection usa a seqüência de conexão para
' criar uma conexão ao banco de dados.
objConn.Open strProvider
'Definir a consulta.
‘Há muitos tipos de consultas, permitindo que você adicione, remova ou obtenha dados.
‘Esta consulta irá adicionar seus dados ao banco de dados, usando as palavras-chave INSERT INTO.
‘Aqui, LivroConvidados é o nome da tabela.
'Use aspas simples em volta das seqüências de caracteres aqui.
strCommand = "INSERT INTO GuestBook (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES ('"
strCommand = strCommand & strTB1 & "','" & strTB2 & "','" & strTB3 & "','" & strTB4 & "','" & strMB1
strCommand = strCommand & "')"
'Executar a consulta para adicionar os dados ao banco de dados.
objConn.Execute strCommand
Response.Write("Obrigado! Seus dados foram adicionados.")
End If
%>
</font>
</body>
</html>
No navegador, você deve exibir o seguinte:
Livro de convidados usando somente o objeto Connection
De: (CAIXA DE TEXTO)
Email: (CAIXA DE TEXTO)
CC: (CAIXA DE TEXTO)
Assunto: (CAIXA DE TEXTO)
Mensagem: (TEXT AREA)
(BOTAO) Enviar Informações
Exemplo 2: Usando o objeto Connection e o objeto Command juntos
Copie e cole o código a seguir no editor de texto e salve o arquivo como LivroConvidados2.asp no diretório x:\Inetpub\Wwwroot\Tutorial. Veja o exemplo com seu navegador digitando http://localhost/Tut...Convidados2.asp na barra de endereços.
<%@ Language=VBScript %>
<html>
<head>
<title>Livro de convidados usando objeto Connection e objeto Command</title>
</head>
<body>
<font face="MS Gothic">
<h2>Livro de convidados usando objeto Connection e objeto Command</h2>
<%
If Not Request.QueryString("Mensagem") = "Verdadeiro" Then
'Nenhuma informação foi inserida ainda, portanto, forneça o formulário.
%>
<p>
<FORM NAME="GuestBook2" METHOD="GET" ACTION="guestbook2.asp">
<table>
<tr>
<td><font face="MS Gothic">De:</td><td><INPUT TYPE="TEXT" NAME="De"></td>
</tr><tr>
<td><font face="MS Gothic">Email:</td><td><INPUT TYPE="TEXT" NAME="Email"></td>
</tr><tr>
<td><font face="MS Gothic">CC:</td><td><INPUT TYPE="TEXT" NAME="CC"></td>
</tr><tr>
<td><font face="MS Gothic">Assunto:</td><td><INPUT TYPE="TEXT" NAME="Assunto"></td>
</tr>
</table>
Mensagem:<br><TEXTAREA NAME="Memorando" ROWS=6 COLS=70></TEXTAREA>
</p>
<p>
<INPUT TYPE="HIDDEN" NAME="Mensagem" VALUE="Verdadeiro">
<INPUT TYPE="SUBMIT" VALUE="Enviar informações">
</FORM>
</p>
<%
Else
O botão HIDDEN acima define a variável Mensagem como Verdadeiro.
‘Agora sabemos que os dados do formulário foram inseridos.
‘Obter dados do formulário. Vamos inseri-los no banco de dados.
'O Access não aceita alguns caracteres, como as aspas simples, portanto, codifique os
' dados usando o método HTMLEncode do objeto do servidor ASP.
dim strTB1, strTB2, strTB3, strTB4, strMB1
strTB1 = Server.HTMLEncode(Request.QueryString("De"))
strTB2 = Server.HTMLEncode(Request.QueryString("EMail"))
strTB3 = Server.HTMLEncode(Request.QueryString("CC"))
strTB4 = Server.HTMLEncode(Request.QueryString("Assunto"))
strMB1 = Server.HTMLEncode(Request.QueryString("Memorando"))
'O tipo de dados do memorando no banco de dados do Access permite definir o tamanho do campo.
If strMB1 = "" Then
iLenMB1 = 255
Else
iLenMB1 = Len(strMB1)
End If
'Esta é uma seqüência de conexão. O ADO usa-a para conectar a um banco de dados por intermédio do driver do Access.
‘Ele precisa do nome do provedor do driver do Access e do nome do banco de dados do Access.
'As seqüências de conexão são ligeiramente diferentes, dependendo do provedor em uso,
' mas todas elas usam ponto-e-vírgula para separar variáveis.
'Se esta linha causar um erro, procure no Registro por
' Microsoft.JET para ver se sua versão é a 4.0.
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\InetPub\Wwwroot\Tutorial\livroconvidados.mdb;"
'Isto cria uma instância de um objeto Connection do ADO.
'Há outros quatro objetos ADO disponíveis, cada um com diferentes métodos e
'propriedades que permitem fazer praticamente tudo com os dados do banco de dados.
Set objConn = server.createobject("ADODB.Connection")
'O método Open do objeto Connection usa a seqüência de conexão para
' criar uma conexão ao banco de dados.
objConn.Open strProvider
'Isto cria uma instância de um objeto Command do ADO.
‘Embora você possa fazer a maior parte do seu trabalho com o objeto Connection,
' o objeto Command oferece mais controle.
Set cm = Server.CreateObject("ADODB.Command")
'A propriedade ActiveConnection permite anexar a uma conexão Open.
'É como o objeto Connection é vinculado ao objeto Command.
cm.ActiveConnection = objConn
'Definir a consulta.
‘Há muitos tipos de consultas, permitindo que você adicione, remova ou obtenha dados.
‘Esta consulta irá adicionar seus dados ao banco de dados, usando as palavras-chave INSERT INTO..
'Como estamos usando o objeto Command, precisamos colocar nossa consulta na propriedade
' CommandText.
‘Aqui, LivroConvidados é o nome da tabela.
cm.CommandText = "INSERT INTO LivroConvidados (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES (?,?,?,?,?)"
‘É aqui que você vê o poder do objeto Command.
'Colocando pontos de interrogação na seqüência acima, podemos usar a coleção Parameters
' para que o ADO substitua o ? pelos parâmetros detalhados abaixo.
'cm.CreateParameter formata o parâmetro para você.
'cm.Parameters.Append anexa o parâmetro à coleção.
'Certifique-se de que estejam na mesma ordem que (TB1,TB2,TB3,TB4,MB1).
Set objparam = cm.CreateParameter(, 200, , 255, strTB1)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB2)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB3)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB4)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 201, , iLenMB1, strMB1)
cm.Parameters.Append objparam
'Executar a consulta para adicionar os dados ao banco de dados.
'Aqui, o método Execute do objeto Command é chamado no lugar do
' método Execute do objeto Connection.
cm.Execute
Response.Write("Obrigado! Seus dados foram adicionados.")
End If
%>
</font>
</body>
</html>
No navegador, você deve exibir o conteúdo como LivroConvidados1.asp, da seguinte forma:
Livro de convidados usando somente o objeto Connection
De: (CAIXA DE TEXTO)
Email: (CAIXA DE TEXTO)
CC: (CAIXA DE TEXTO)
Assunto: (CAIXA DE TEXTO)
Mensagem: (TEXT AREA)
(BOTAO) Enviar Informações
Exemplo 3: Exibir o banco de dados em um navegador
Depois de inserir as informações em um banco de dados, use uma página da Web que contenha outro script para exibir e editar os dados. Não houve muita alteração no código ADO, exceto na forma como sua consulta foi definida.
Nos dois últimos exemplos, você usou a consulta INSERT INTO para adicionar registros a um banco de dados. Neste exemplo, use a consulta SELECT para escolher registros de um banco de dados e exibi-los no navegador. Use também a consulta DELETE para remover registros do banco de dados. A única consulta não usada nestes exemplos é a consulta UPDATE, cuja sintaxe se assemelha à da consulta INSERT INTO. A consulta UPDATE permite que se alterem os campos em um banco de dados.
Copie e cole o código a seguir no editor de texto e salve o arquivo como ExibirLC.asp no diretório x:\Inetpub\Wwwroot\Tutorial. Veja o exemplo com seu navegador digitando http://localhost/Tutorial/ExibirLC.asp na barra de endereços.
<%@ Language=VBScript %>
<html>
<head>
<title>Exibir Livro de convidados</title>
</head>
<body>
<font face="MS Gothic">
<h2>Exibir Livro de convidados</h2>
<%
'Ler em qualquer entrada de usuário. Qualquer um destes pode estar vazio.
'Executando isto primeiro, podemos preservar a entrada do usuário no formulário.
dim strTB1, strTB2, strTB3, strTB4, strMB1, strSort, iDelete
strTB1 = Server.HTMLEncode(Request.QueryString("De"))
strTB2 = Server.HTMLEncode(Request.QueryString("EMail"))
strTB3 = Server.HTMLEncode(Request.QueryString("CC"))
strTB4 = Server.HTMLEncode(Request.QueryString("Assunto"))
strMB1 = Server.HTMLEncode(Request.QueryString("Memorando"))
strSort = Server.HTMLEncode(Request.QueryString("classificar"))
iDelete = CInt(Request.QueryString("Delete"))
‘Porque usamos esta variável e ela poderia não ser definida...
If "" = strSort Then
strSort = "FID"
End If
%>
<p>
<FORM NAME="ViewGuestBook" METHOD="GET" ACTION="viewgb.asp">
<table>
<tr>
<td><font face="MS Gothic">Classificar por coluna:</td>
<td><SELECT NAME="classificar" SIZE="1">
<OPTION VALUE="FID">Número de identificação</OPTION>
<OPTION VALUE="FTB1">Nome</OPTION>
<OPTION VALUE="FTB2">Email</OPTION>
<OPTION VALUE="FTB3">CC</OPTION>
<OPTION VALUE="FTB4">Assunto</OPTION>
<OPTION VALUE="FMB1">Memorando</OPTION>
</SELECT></td>
</tr><tr>
<td><font face="MS Gothic">O nome contém:</td>
<td><INPUT TYPE="TEXT" NAME="De" VALUE="<%=strTB1%>"></td>
</tr><tr>
<td><font face="MS Gothic">O email contém:</td>
<td><INPUT TYPE="TEXT" NAME="Email" VALUE="<%=strTB2%>"></td>
</tr><tr>
<td><font face="MS Gothic">CC contém:</td>
<td><INPUT TYPE="TEXT" NAME="CC" VALUE="<%=strTB3%>"></td>
</tr><tr>
<td><font face="MS Gothic">O assunto contém:</td>
<td><INPUT TYPE="TEXT" NAME="Assunto" VALUE="<%=strTB4%>"></td>
</tr><tr>
<td><font face="MS Gothic">O memorando contém:</td>
<td><INPUT TYPE="TEXT" NAME="Memorando" VALUE="<%=strMB1%>"></td>
</tr>
</table>
<INPUT TYPE="SUBMIT" VALUE="Enviar parâmetros de pesquisa ">
</p>
<%
'Criar seqüência de conexão, criar uma instância do objeto Connection,
' e conectá-la ao banco de dados.
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\InetPub\Wwwroot\Tutorial\livroconvidados.mdb;"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strProvider
'Definir a consulta.
If iDelete = 0 Then
'Se a variável Delete não for definida, a consulta será SELECT.
'* significa todos os campos. ASC significa ASCII. % é um caractere curinga.
strQuery = "SELECT * FROM LivroConfidados"
strQuery = strQuery & " WHERE FTB1 LIKE '%" & strTB1 & "%'"
strQuery = strQuery & " AND FTB2 LIKE '%" & strTB2 & "%'"
strQuery = strQuery & " AND FTB3 LIKE '%" & strTB3 & "%'"
strQuery = strQuery & " AND FTB4 LIKE '%" & strTB4 & "%'"
strQuery = strQuery & " AND FMB1 LIKE '%" & strMB1 & "%'"
strQuery = strQuery & " ORDER BY " & StrSort & " ASC"
Else
‘Queremos excluir um registro.
strQuery = "DELETE FROM GuestBook WHERE FID=" & iDelete
End If
'Executando a consulta SELECT cria um objeto Recordset do ADO.
'Isto retém os dados obtidos no banco de dados.
Set objRS = objConn.Execute(strQuery)
'Agora que os dados do banco de dados estão armazenados no objeto Recordset,
' mostre-os em uma tabela.
%>
<p>
<FORM NAME="EditGuestBook" METHOD="GET" ACTION="viewgb.asp">
<table border=1 cellpadding=4 >
<%
On Error Resume Next
If objRS.EOF Then
If iDelete = 0 Then
Response.Write "<tr><td><font face="MS Gothic">There are no entries in the database.</font></td></tr>"
Else
Response.Write "<tr><td><font face="MS Gothic">Record " & iDelete & " foi excluído.</font></td></tr>"
End If
Else
'Imprimir nomes de campo usando alguns dos método e propriedades do
‘objeto Recordset.
Response.Write "<tr>"
'Para cada coluna na linha atual...
For i = 1 to (objRS.Fields.Count - 1)
' gravar o nome do campo.
Response.Write "<td><font face="MS Gothic"><B>" & objRS(i).Name & "</B></font></td>"
Next
Response.Write "<td><font face="MS Gothic"><B>Delete</B></font></td>"
Response.Write "</tr>"
'Imprimir os dados do campo usando outros métodos e propriedades
' do objeto Recordset. Ao exibir um padrão no modo como são usados,
' você pode examinar outros e testar.
'Embora não esteja no final dos registros na definição...
While Not objRS.EOF
Response.Write "<tr>"
'Para cada coluna na linha atual...
For i = 1 para (objRS.Fields.Count - 1)
' gravar os dados no campo.
Response.Write "<td><font face="MS Gothic">" & objRS(i) & "</font></td>"
Avançar
'Adicionar um botão que passe um número de identificação para excluir um registro.
%><td><INPUT TYPE="SUBMIT" NAME="Delete" VALUE="<%=objRS(0)%>"></td><%
Response.Write "</tr>"
'Mover para a próxima linha.
objRS.MoveNext
Wend
End If 'objRS.EOF
%>
</table>
</FORM>
<%
'Fechar a conexão.
objConn.Close
%>
</font>
</body>
</html>
No navegador, você deve ver o seguinte:
Exibir livro de convidados
Classificar por coluna: (SELECT)(OPCAO)Número de identificação(OPCAO)Nome(OPCAO) Email (OPCAO)CC (OPCAO)Assunto (OPCAO)Memorando
O nome contém: (CAIXA DE TEXTO)
O email contém: (CAIXA DE TEXTO)
O CC contém: (CAIXA DE TEXTO)
O assunto contém: (CAIXA DE TEXTO)
O memorando contém: (TEXT AREA)
(BOTAO) Enviar parametros para pesquisa
Não há entradas no banco de dados.
Lição 4: Exibindo uma planilha do Excel
Esta lição requer que você instale o Microsoft Excel no sistema.
Esta lição demonstra como exibir uma planilha do Microsoft Excel em uma página da Web. Como na lição anterior, use o ADO. Entretanto, nesta lição você conecta-se a uma planilha do Excel em vez de a um banco de dados do Access.
Prepare sua planilha de Excel para exibir em um Active Server Page
Usando o Excel 98 ou 2000/XP, crie uma planilha e salve-a como ASPTOC.xls em x:\Inetpub\Wwwroot\Tutorial. Não inclua nenhum rótulo de formatação ou de coluna ao criar a planilha.
Preencha alguns dos campos com dados aleatórios. Trate a primeira linha de células como nomes de colunas.
Realce as linhas e colunas da planilha que você deseja exibir na página da Web. (Clique em um dos campos e arraste o mouse diagonalmente para realçar um bloco de campos.)
No menu Inserir, selecione Nome e clique em Definir. É aqui que todos as pastas de trabalho são definidas por nome e intervalo de células.
Certifique-se de que o intervalo de células que foi realçado esteja exibido corretamente na parte inferior. Digite o nome MEULIVRO para sua pasta de trabalho e selecione Adicionar. Sempre que alterar MEULIVRO, certifique-se de que o intervalo de célula correto esteja exibido na caixa de texto Refere-se a na parte inferior da janela Definir nome. Simplesmente selecionar MEULIVRO depois de realçar um novo bloco de células não atualiza o intervalo de células.
Se o nome aparece na lista de pasta de trabalho, clique em OK. Salve sua planilha.
Feche o Excel para remover o bloqueio no arquivo para que sua página ASP possa acessá-lo.
Nos exemplos da Lição 3, você especificou um nome de provedor na seqüência de conexão, o qual mapeia para uma DLL específica do ADO. Neste exemplo, é usado um nome de driver que faz com que o ASP use um provedor padrão para esse nome do driver.
Copie e cole o código a seguir no editor de texto e salve o arquivo como ExibirExcel.asp no diretório x:\Inetpub\Wwwroot\Tutorial. Veja o exemplo com seu navegador digitando http://localhost/Tut...ExibirExcel.asp na barra de endereços.
-----------------------------------------------------------------------------------------------
Para uma maior organização desta seção, todas as duvidas relacionadas a este tutorial devem ser tiradas na seguinte sala:
http://forum.wmonlin...p?showforum=113
