Exemplo simples de ASP

Fazemos um stop para realizar um exemplo simples em ASP que trata o envio de formulários e o uso de loops.

Vamos ver um simples exemplo realizado em ASP que serve para ilustrar o trabalho desenvolvido até o momento no manual da tecnologia. Este exemplo é muito básico, embora experimenta várias das utilidades vistas até agora, como o trabalho com loops e os objetos request e response, que servem para receber dados e imprimi-los na página.

O exemplo em concreto se trata de um gerador de tabelas de multiplicar. À princípio, quando se acessa ao arquivo, mostra-se a tabela do zero e um formulário onde podemos selecionar outro número e ver sua tabela de multiplicar. Ao enviar o formulário se acessa a mesma página, embora agora apareceria a tabela de multiplicar do número selecionado no formulário.

Formulário para selecionar um número

Vejamos agora o formulário que mostra um campo de seleção com os números do 1 ao 10. Este formulário servirá para que o visitante possa selecionar a tabela que deseja ver.

<form name=tb action=tb.asp method=post>
<P align=center>Selecione uma opção
<SELECT align=center name=tab style="WIDTH: 40px">
    <OPTION selected>1</OPTION>
    <OPTION >2</OPTION>
    <OPTION >3</OPTION>
    <OPTION >4</OPTION>
    <OPTION >5</OPTION>
    <OPTION >6</OPTION>
    <OPTION >7</OPTION>
    <OPTION >8</OPTION>
    <OPTION >9</OPTION>
    <OPTION >10</OPTION>
</SELECT>
<br>
<INPUT type=submit value="Ver tabela" >
</P>
</form>

Temos que observar que a página que vai receber o formulário chama-se tb.asp, segundo se indica no atributo action. O único campo do formulário que se envia é chamado "tab", e salva o número que tenha sido selecionado.

Código para mostrar a tabela de multiplicar correspondente

Começamos recebendo o dado do formulário que nos indica a tabela que o usuário quer visualizar. À princípio, não se recebe nenhum dado do formulário (até que não se envie o formulário não se sabe que tabela se deseja ver e portanto, havíamos dito que se mostraria a tabela do zero). Sendo assim, se não recebo nada, inicio a zero a variável i, que salva o número da tabela de multiplicar a ser mostrada. No caso de que receba algo do formulário, se inicia a variável i ao valor recebido no campo "tab".

'se não se está recebendo dados do formulário
if request.form("tab")="" then
    'inicio a tabela a mostrar a zero
    i=0
else
    'inicio a tabela a mostrar ao dado recebido no formulário
    i=Request.Form ("tab")
end if

Agora veremos um loop que mostra a tabela de multiplicar do valor recebido por formulário. Este loop faz uma repetição desde 1 ao 10 e vão se realizando as multiplicações e mostrando os resultados.

'mostro a tabela do número que recebo do formulário
Response.Write "Tabela do " & i%><br><br><%
'realizo um loop do 1 ao 10 para mostrar a tabela correspondente
for a=1 to 10
    Response.Write i &" x " & a & " = " & i*a%>
    <br>
    <%
next
%>

Código completo

O código completo do exemplo pode ser visto a seguir. Espero que sirva de ajuda para as pessoas que começam a dar seus primeiros passos com ASP.

<%@ Language=VBScript %>
<HTML>
<HEAD><title>Tabelas de Multiplicar....</title>
</HEAD>
<BODY bgColor=skyblue>

<div align="center">

<form name=tb action=tb.asp method=post>
<P align=center>Selecione uma opção
<SELECT align=center name=tab style="WIDTH: 40px">
    <OPTION selected>1</OPTION>
    <OPTION >2</OPTION>
    <OPTION >3</OPTION>
    <OPTION >4</OPTION>
    <OPTION >5</OPTION>
    <OPTION >6</OPTION>
    <OPTION >7</OPTION>
    <OPTION >8</OPTION>
    <OPTION >9</OPTION>
    <OPTION >10</OPTION>
</SELECT>
<br>
<INPUT type=submit value="Ver tabela" name=submit1 >
</P>
</form>
<%

'se não se está recebendo dados do formulário
if request.form("tab")="" then
    'inicio a tabela a mostrar a zero
    i=0
else
    'inicio a tabela a mostrar ao dado recebido no formulário
    i=Request.Form ("tab")
end if

'mostro a tabela do número que recebo do formulário
Response.Write "Tabela do " & i%><br><br><%
'realizo um loop do 1 ao 10 para mostrar a tabela correspondente
for a=1 to 10
    Response.Write i &" x " & a & " = " & i*a%>
    <br>
    <%
next
%>
</div>

</BODY>
</HTML>