helyoWAP

Autores: Helio Fonseca Rosa e Andrea de Mello Rosa

Esta página contém 2 figuras grandes. Aguarde a carga se a conexão estiver lenta.

Programa wasp4.asp

O script WeekDay (Date) retorna um código numérico para o dia da semana da data obtida com  o script Date.
Os códigos são : Domingo = 1; Segunda-Feira = 2: Terça = 3; ..... Sábado = 7 .
Por exemplo, esta página está sendo atualizada em 13 de maio de 2002, que é uma segunda-feira; o código no interior do servidor para segunda-feira é 2.
A expressão WeekDay(Date) para hoje pode ser entendida como WeekDay("13/05/02") e tem o valor 2, que corresponde à segunda-feira.

Voltaremos a usar estes códigos mais adiante com as instruções ou scripts condicionais.

wasp4.asp (código)

<%
Response.ContentType = "text/vnd.wap.wml" 
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<p>
***** HELYOWAP *****<br/>
Uso do script WeekDay(Date).<br/>
O codigo para o dia da semana 
de <% = Date %> e o seguinte:
<% Response.Write WeekDay(Date) %> 
</p>
</card>
</wml>

O resultado no simulador é mostrado abaixo:

O código resultante que gerou a página vista acima é:

<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<p>
***** HELYOWAP *****<br/>
Uso do script WeekDay(Date).<br/>
O codigo para o dia da semana 
de 13/05/02 e o seguinte:
2
</p>
</card>
</wml>

Programa wasp5.asp

Vamos recordar um pouco de lógica de programação utilizando as instruções condicionais e de loop do VBScript.
A instrução If ("Se", em inglês) é a mais comum e conhecida. Sua lógica mais simples é a seguinte:

Se "esta condição se verificar" Então "execute a instrução 1";
Ou Se "esta outra condição se verificar" Então "execute a instrução 2".
 Senão  "execute a instrução 3" (ou seja, não ocorreu nenhuma das condições anteriores).

Em VBScript:

If  "esta instrução se verificar" Then "execute a instrução 1"; 
ElseIf "esta outra condição se verificar" Then "execute a instrução 2";
Else "execute a instrução 3".

Exemplo: Se a hora atual é menor do que 12 então diga "Bom Dia".
               Ou se a hora atual é igual ou maior do que 18 então diga "Boa Noite".
               Senão, diga "Boa Tarde"

Vimos acima a instrução "Now" que enviava para o mini-browser  o conjunto "data-hora" obtido no PWS.
A função  Hour(Now) extrai a hora deste conjunto.
Assim, se "Now" retorna o conjunto 13/05/02  23:50:35, a expressão acima pode ser entendida como 
Hour("13/05/02  23:50:35"), cujo valor é 23.

wasp5.asp (código):

<%
Response.ContentType = "text/vnd.wap.wml" 
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<p>
***** HELYOWAP *****<br/>
Uso da instrucao If<br/><br/>
A hora atual e 
<% Response.Write Hour(Now) %>.
Entao diga
<%  If Hour(Now) < 12 Then
Response.Write "Bom Dia !"
ElseIf Hour(Now) >= 18 Then
Response.Write "Boa Noite!"
Else
Response.Write "Boa Tarde!"
End If  %>
</p>
</card>

Eis o resultado:

A listagem ou código que gerou a página acima é :

<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card>
<p>
***** HELYOWAP *****<br/>
Uso da instrucao If<br/><br/>
A hora atual e
23.
Entao diga
Boa Noite!
</p>
</card>
</wml>