Creditos:Dark Lost &
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>
Espero que Gostem do Artigo
Abraços