Procedures e Funções
Você pode colocar definições de procedure no mesmo arquivo .asp que chama as procedures ou pode colocar as procedures mais usadas em um arquivo .asp compartilhado e usá-las com a instrução include <! - -#INCLUDE FILE=...> no lado do servidor, para incluir a instrução em outros arquivos .asp que chamam as procedures.
Você pode chamar procedures usando simplesmente o nome da procedure dentro de um bloco de script.
Por exemplo, para chamar uma procedure denominada ImprimirData, você codifica simplesmente o seguinte:
ImprimirData
Você pode usar a sintaxe a seguir para chamar a mesma procedure dentro do código HTML:
<% Call ImprimirData %>
Para continuar o exemplo, a sintaxe correta para a passagem de parâmetros, quando você chama uma procedure, é:
ImprimirPalavra "ALL4ALL"
As funções são um tipo especial de procedure que retorna um valor.
Você pode chamar funções usando o seguinte tipo de sintaxe:
Quatidade = Calcular "All"
O exemplo a seguir ilustra a criação e a chamada de procedures usando duas linguagens de script diferentes, VBScript e JScript.
<HTML>
<BODY>
<% Call Teste %>
<% Call ImprimirData %>
</BODY>
</HTML>
<script language=VBScript runat=Server>
Sub Teste
___Response.Write _
___"<TR><TD>Nome</TD><TD>Valor</TD></TR>"
___Set Params = Request.QueryString
___For Each p in Params
______Response.Write "<TR><TD>" & p & "</TD><TD>" & _
______Params(p) & "</TD></TR>"
___Next
End Sub
</script><script language=JScript runat=Server>
Function ImprimirData( )
{
___var x
___x = new Date( )
___Response.Write(x.toStrinq( ))
}
</script>
O exemplo abaixo é de uma função que recebe um número (mês) e converte para o valor em extenso (nome). A declaração de funções segue o esquema abaixo.
Como dissemos anteriormente, é bom ter um arquivo Include com todas as funções usadas por um determinado sistema ou página, semelhante aos módulos do VB.
<%
functions.asp
Public Function MesExtenso (mes)
Select Case mes
Case 1
MesExtenso = "Janeiro"
Case 2
MesExtenso = "Fevereiro"
Case 3
MesExtenso = "Março"
Case 4
MesExtenso = "Abril"
Case 5
MesExtenso = "Maio"
Case 6
MesExtenso = "Junho"
Case 7
MesExtenso = "Julho"
Case 8
MesExtenso = "Agosto"
Case 9
MesExtenso = "Setembro"
Case 10
MesExtenso = "Outubro"
Case 11
MesExtenso = "Novembro"
Case 12
MesExtenso = "Dezembro"
End Select
End Function
%>
