\nExemplo11:includefiles.asp\n<%@LANGUAGE=VBSCRIPT%>\n\n\nEutenho<%=Dias(#02/10/1978#,Date)%>diasdevida!
\nOuseja,maisoumenos<%=Horas(#02/10/1978#,Date)%>horasde\nvida!\n\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais 17de43\n\nQuando o valor numérico é menor que\nzero, é retornado o valor imediatamente\nmenor.\nEx:Fix(-1,4)=-2\nInt(1.4)=1\n\nSin(valor_numérico) Retornaosenodeumdeterminadoangulo(radianos)\nCos(valor_numérico) Retorna o coseno de um determinado\n\nangulo(radiando)\nTan(valor_numérico) Retorna a tangente de um determinado\n\nangulo(radiando)\nAtn(valor_numérico) Retorna o arco tangente(radiando) de umdeterminadovalor\nLog(valor_numérico) Retorna o Logaritmo Neperiano de um\n\nnúmero\nExp(valor_numérico) Retornae^valor_numérico\nSqr(valor_numérico) Retorna a raiz quadrada de um valor\n\nnuméricomaiorouigualazero\nDate RetornaaDataatual\nTime RetornaaHoraatual\nNow RetornaaData/Horaatual\nDay(valor_data) Retornaodiadeumadeterminadadata\nMonth(valor_data) Retornaomêsdeumadeterminadadata\nYear(valor_data) Retornaoanodeumadeterminadadata\nWeekday(valor_data) Retorna o dia da semana no formato\n\nnuméricodeumadeterminadadata\n\nHour(tempo) Retorna a hora de uma determinada\nexpressãodetempo\n\nMinute(tempo) Retorna os minutos de uma determinada\nexpressãodetempo\n\nSecond(tempo) Retorna os segundos de uma determinada\nexpressãodetempo\n\nTimeSerial(hora,minuto,segundo) Retornaumaexpressãodetempo\nDateSerial(ano,mes,dia) Retornacaracteressãodedata\nAsc(caractere) RetornaonúmerocorrespondentenatabelaASCIIdocaractereinformado\nChr(valorinteiro) Retorna o caractere ASCII correspondente\n\naovalorinteiroinformado\n\nLcase(string) Convertetodososcaracteresdeumastringparaminúsculas\nUcase(String) Convertetodososcaracteresdeumastringparamaiúscolas\nLen(String) Retorna o número de caracteres de umadeterminadastring\n\nInStr(pos_inicial,string,substring)\n\nRetornaaposiçãodoprimeirocaracterede\numa substring numa determinada string.\nPos_inicialindicaaposiçãodastringonde\ndevemoscomeçarabusca.\nEx:InStr(1,\\u201dLineu\\u201d,\\u201deu\\u201d)=4\nInStr(3,\\u201dLineu\\u201d,\\u201deu\\u201d)=4\n\nMid(string,pos_inicial,Tamanho) Retorna uma substring a partir de uma\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais 18de43\n\nstring informada , bastando apenas\nespecificarmos qual a posição inicial da\nsubstringeseutamanho.\nEx:Mid(\\u201cLineu\\u201d,4,2)=eu\n\nLeft(string,Tamanho)\nCortaumastringapartirdoladoesquerdo.\nTamanhoéonúmerodecaracteresdanova\nstring\nEx:Left(\\u201cLineu\\u201d,3)=Lin\n\nRight(string,Tamanho)\nCorta uma string a partir do lado direito.\nTamanhoéonúmerodecaracteresdanova\nstring\nEx:Right(\\u201cLineu\\u201d,2)=eu\n\nLtrim(String)\nRetira caracteres de espaços que possam\nexistirnoladoesquerdodeumastring\nEx:Ltrim(\\u201cLineuS\\u201d)=\\u201cLineuS\\u201c\n\nRtrim(String)\nRetira caracteres de espaços que possam\nexistirnoladodireitodeumastring\nEx:Ltrim(\\u201cLineuS\\u201d)=\\u201cLineuS\\u201c\n\nTrim(String)\nRetira caracteres de espaço do inicio e do\nfimdeumastring\nEx:Trim(\\u201cLineuS\\u201d)=\\u201cLineuS\\u201d\n\nFormatCurrency(ValorNumérico)\nFormataumvalornuméricoparaopadrão\nmoeda configurado no computador\nservidor.\n\nFormatNumber(ValorNumérico)\nFormataumvalornuméricoparaopadrão\nnumérico configurado no computador\nservidor.\n\n\n\nExemplo12.1:funcoes1.asp\n<%@Language=VBScript%><%OptionExplicit%>\nCursoASP\n<%Dims\nS="Lineu"\nS=Trim(S)%>\nCaracteresdapalavra<%=UCase(s)%>:
\n1-<%=Mid(s,1,1)%>
2-<%=Mid(s,2,1)%>
\n3-<%=Mid(s,3,1)%>
4-<%=Mid(s,4,1)%>
\n5-<%=Mid(s,5,1)%>
\n\n\n\n\nVerifiquenopróximoexemploaocorrênciadeerros:\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nExemplo12.2:funcoes2.asp\n\n\n<%@Language=VBScript%>\n<%OptionExplicit%>\nCursoASP\n\n<%Dimdia,mes,ano\ndia=2\nmes=31\nano=2000%>\n<%=DateSerial(ano,mes,dia)%>\n
<%=CDate(dia&"/"&mes&"/"&ano)%>\n\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais 19de43\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n6.7ESTRUTURASDECONTROLEDEDECISÃO\n\n\nSãoestruturasembutidasnumalinguagemdeprogramaçãoquenospermiteexecutar\ndeterminadoconjuntodecomandosdeacordocomumadeterminadacondição.\n\nOprimeirocomandodoVBScriptqueseencaixanessadescriçãoéoIF:\nIfThen\nComando(s)\nEndif\nEsse comando testa a Condição, se mesma for verdadeira, o bloco de comandos\n\nentreIfeEndIfseráexecutado.\n\n\nExemplo13.1:if1.asp\n<%@Language=VBScript%>\nCursoASP\n\n<%ifWeekDay(Date)=1then%>\nHojeéDomingo\n<%endif%>\n<%ifWeekDay(Date)<>1then%>\nHojenãoéDomingo\n<%endif%>\n\n\n\n\n\nO exemplo anterior apesar de correto poderia ser escrito de uma forma mais\neficiente.Paratal,devemosutilizarocomandoIfassociadoaElse:\n\n\n\nIfThen\nComandos_1\nElse\nComandos_2\nEndif\n\n\nExemplo12.3:funcoes3.asp\n\n\n<%@Language=VBScript%>\n<%OptionExplicit%>\nCursoASP\n\nEugostariadeganhar<%=FormatCurrency(50000)%>pormês!
\nHojeeuganho<%=FormatNumber(35/3)%>pordia...\n\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais 20de43\n\n\n\nQuandoointerpretadorencontraessecomandotestaacondição,seforverdadeira,\nexecutaoblocodeComandos_1.Seacondiçãoforfalsa(0),ointerpretadorpulaparaElsee\nexecutaoblocodecomandos_2.\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nComodápraperceber,háaquiumaeconomiadeprocessadorumavezqueoteste\ndacondiçãoagorasóérealizadoumavez.\n\nPodemostambémterváriosIf..Then...Elseaninhados,sendoquecadaclausulaElse\nestaráligadaaoIf..Thenimediatamenteanterior.\n\n\n\nExemplo13.3:if3.asp\n\n\n<%@Language=VBScript%>\nCursoASP\n<%ifWeekDay(Date)=1then%>\nHojeéDomingo\n<%else\nifWeekDay(Date)=7then%>\nHojeéSábado\n<%else%>\nHojeédiadetrabalhareestudar\n<%endif\nendif%>\n\n\n\n\n\nNoexemploanterior temosumEndIF para cadaIf .. then ..Else. Issodificulta\nbastantealeituradocódigoporpartedoprogramador.Paramelhoraranossavida,oVBScript\npossuiumaestruturaderivadadaanterior:oIfThenElseIf.Adiferençadessaestruturaparaa\nanterioréqueagorasóprecisamosdeumendifaofinaldetodososcomandos.Sintaxe:\n\n\n\nIfThen\nComandos_1\n\nExemplo13.2:if2.asp\n\n\n<%@Language=VBScript%>\n\n\nCursoASP\n\n\n<%ifWeekDay(Date)=1then%>\nHojeéDomingo\n<%else%>\nHojenãoéDomingo\n<%endif%>\n\n\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais"} 014 Curso-de-Active-Server-Pages-da-UFPI - ALGORITMOS - 4    
014_Curso-de-Active-Server-Pages-da-UFPI
43 pág.

014_Curso-de-Active-Server-Pages-da-UFPI

Disciplina:ALGORITMOS6.527 materiais91.297 seguidores
Pré-visualização9 páginas
mais estruturado e dependendo do número de comandos de uma subrotina,
existeumaeconomiadelinhasdecódigo.

Cabem aqui algumas observações. Avariáveldeclaradadentroda Functionédita
variávellocaldaSubrotina,poisseuvalornãopodeser“enxergado”foradamesma.Poroutro
lado,asvariáveis c,d,epodemser “vistas”pelaFunctionpois estas sãovariáveisde escopo
global.

Exemplo10.1:sub1.asp

<%@LANGUAGE=VBSCRIPT%>
<HTML><HEAD><TITLE>CursoASP</TITLE></HEAD><BODY>
<%FunctionSoma(a,b)
DimResultado
Resultado=a+b
Soma=Resultado
endFunction

Dimc,d,e
e=Soma(10,20)%>
Soma(10,20)=<%=e%><BR>
Soma(100,200)=<%=Soma(100,200)%>
</BODY></HTML>

Exemplo10.2:sub2.asp

<HTML><HEAD><TITLE>CursoASP</TITLE></HEAD><BODY>
<%DimA,B
A="VariávelGlobalA"
B="VariávelGlobalB"
MudaB%>
ValordeA=<%=A%><BR>
ValordeB=<%=B%>

<%SubMudaB()
DimA
A="VariávelAnoSUB"

http://Apostilas.Fok.com.br–SeusitedeApostilasetutoriais 16de43

ObservequeocódigoparaoSUB(ouFunction)nãoprecisaserescritoantesdesua
chamada.

6.6.INCLUDEFILES

Essa é mais uma das formas que existe para poupar trabalho dos programadores
economizando linhasde código.A idéiaé criarumarquivo textodequalquer extensãoque
contenhaumconjuntodesubrotinas.Essas,estarãodisponíveisaqualquerpáginaaspquefaça
referênciaaessearquivo.

ExistemduasformasdereferenciartalarquivonumapáginaASP:
<!--#INCLUDEVIRTUAL=”Path_Virtual/Nome_Arquivo”-->ou
<!--#INCLUDEFILE=”Path_FÍSICO/Nome_Arquivo”-->

6.6FUNÇÕES

Função Descrição
Abs(valor_numérico) Retornaomódulodeumnúmero
Fix(valor_numérico) Retornaaparteinteiradeumnúmero
Int(valor_numérico) Retorna a parte inteira de um número.

Exemplo11:subrotinas.inc
<SCRIPTLANGUAGE=VBSCRIPTRUNAT=SERVER>

FunctionDias(DiaI,DiaF)
Dias=CDate(DiaF)-CDate(DiaI)
EndFunction

FunctionHoras(DiaI,DiaF)
Horas=Dias(DiaI,DiaF)*24
EndFunction

</SCRIPT>
Exemplo11:includefiles.asp
<%@LANGUAGE=VBSCRIPT%>
<!--#INCLUDEVIRTUAL="curso/subrotinas.inc"-->
<HTML><BODY>
Eutenho<%=Dias(#02/10/1978#,Date)%>diasdevida!<BR>
Ouseja,maisoumenos<%=Horas(#02/10/1978#,Date)%>horasde
vida!
</BODY></HTML>

http://Apostilas.Fok.com.br–SeusitedeApostilasetutoriais 17de43

Quando o valor numérico é menor que
zero, é retornado o valor imediatamente
menor.
Ex:Fix(-1,4)=-2
Int(1.4)=1

Sin(valor_numérico) Retornaosenodeumdeterminadoangulo(radianos)
Cos(valor_numérico) Retorna o coseno de um determinado

angulo(radiando)
Tan(valor_numérico) Retorna a tangente de um determinado

angulo(radiando)
Atn(valor_numérico) Retorna o arco tangente(radiando) de umdeterminadovalor
Log(valor_numérico) Retorna o Logaritmo Neperiano de um

número
Exp(valor_numérico) Retornae^valor_numérico
Sqr(valor_numérico) Retorna a raiz quadrada de um valor

numéricomaiorouigualazero
Date RetornaaDataatual
Time RetornaaHoraatual
Now RetornaaData/Horaatual
Day(valor_data) Retornaodiadeumadeterminadadata
Month(valor_data) Retornaomêsdeumadeterminadadata
Year(valor_data) Retornaoanodeumadeterminadadata
Weekday(valor_data) Retorna o dia da semana no formato

numéricodeumadeterminadadata

Hour(tempo) Retorna a hora de uma determinada
expressãodetempo

Minute(tempo) Retorna os minutos de uma determinada
expressãodetempo

Second(tempo) Retorna os segundos de uma determinada
expressãodetempo

TimeSerial(hora,minuto,segundo) Retornaumaexpressãodetempo
DateSerial(ano,mes,dia) Retornacaracteressãodedata
Asc(caractere) RetornaonúmerocorrespondentenatabelaASCIIdocaractereinformado
Chr(valorinteiro) Retorna o caractere ASCII correspondente

aovalorinteiroinformado

Lcase(string) Convertetodososcaracteresdeumastringparaminúsculas
Ucase(String) Convertetodososcaracteresdeumastringparamaiúscolas
Len(String) Retorna o número de caracteres de umadeterminadastring

InStr(pos_inicial,string,substring)

Retornaaposiçãodoprimeirocaracterede
uma substring numa determinada string.
Pos_inicialindicaaposiçãodastringonde
devemoscomeçarabusca.
Ex:InStr(1,”Lineu”,”eu”)=4
InStr(3,”Lineu”,”eu”)=4

Mid(string,pos_inicial,Tamanho) Retorna uma substring a partir de uma

http://Apostilas.Fok.com.br–SeusitedeApostilasetutoriais 18de43

string informada , bastando apenas
especificarmos qual a posição inicial da
substringeseutamanho.
Ex:Mid(“Lineu”,4,2)=eu

Left(string,Tamanho)
Cortaumastringapartirdoladoesquerdo.
Tamanhoéonúmerodecaracteresdanova
string
Ex:Left(“Lineu”,3)=Lin

Right(string,Tamanho)
Corta uma string a partir do lado direito.
Tamanhoéonúmerodecaracteresdanova
string
Ex:Right(“Lineu”,2)=eu

Ltrim(String)
Retira caracteres de espaços que possam
existirnoladoesquerdodeumastring
Ex:Ltrim(“LineuS”)=“LineuS“

Rtrim(String)
Retira caracteres de espaços que possam
existirnoladodireitodeumastring
Ex:Ltrim(“LineuS”)=“LineuS“

Trim(String)
Retira caracteres de espaço do inicio e do
fimdeumastring
Ex:Trim(“LineuS”)=“LineuS”

FormatCurrency(ValorNumérico)
Formataumvalornuméricoparaopadrão
moeda configurado no computador
servidor.

FormatNumber(ValorNumérico)
Formataumvalornuméricoparaopadrão
numérico configurado no computador
servidor.

Exemplo12.1:funcoes1.asp
<%@Language=VBScript%><%OptionExplicit%>
<HTML><HEAD><TITLE>CursoASP</TITLE><BODY>
<%Dims
S="Lineu"
S=Trim(S)%>
Caracteresdapalavra<%=UCase(s)%>:<BR>
1-<%=Mid(s,1,1)%><BR>2-<%=Mid(s,2,1)%><BR>
3-<%=Mid(s,3,1)%><BR>4-<%=Mid(s,4,1)%><BR>
5-<%=Mid(s,5,1)%><BR>
</BODY></HTML>

Verifiquenopróximoexemploaocorrênciadeerros:

Exemplo12.2:funcoes2.asp

<%@Language=VBScript%>
<%OptionExplicit%>
<HTML><HEAD><TITLE>CursoASP</TITLE>
<BODY>
<%Dimdia,mes,ano
dia=2
mes=31
ano=2000%>
<%=DateSerial(ano,mes,dia)%>
<BR><%=CDate(dia&"/"&mes&"/"&ano)%>
</BODY>

http://Apostilas.Fok.com.br–SeusitedeApostilasetutoriais 19de43

6.7ESTRUTURASDECONTROLEDEDECISÃO

Sãoestruturasembutidasnumalinguagemdeprogramaçãoquenospermiteexecutar
determinadoconjuntodecomandosdeacordocomumadeterminadacondição.

OprimeirocomandodoVBScriptqueseencaixanessadescriçãoéoIF:
If<Condição>Then
Comando(s)
Endif
Esse comando testa a Condição, se mesma for verdadeira, o bloco de comandos

entreIfeEndIfseráexecutado.

Exemplo13.1:if1.asp
<%@Language=VBScript%>
<HTML><HEAD><TITLE>CursoASP</TITLE></HEAD>
<BODY>
<%ifWeekDay(Date)=1then%>
HojeéDomingo
<%endif%>
<%ifWeekDay(Date)<>1then%>
HojenãoéDomingo
<%endif%>
</BODY></HTML>

O exemplo anterior apesar de correto poderia ser escrito de uma forma mais
eficiente.Paratal,devemosutilizarocomandoIfassociadoaElse:

If<Condição>Then
Comandos_1
Else
Comandos_2
Endif

Exemplo12.3:funcoes3.asp

<%@Language=VBScript%>
<%OptionExplicit%>
<HTML><HEAD><TITLE>CursoASP</TITLE>
<BODY>
Eugostariadeganhar<%=FormatCurrency(50000)%>pormês!<BR>
Hojeeuganho<%=FormatNumber(35/3)%>pordia...
</BODY></HTML>

http://Apostilas.Fok.com.br–SeusitedeApostilasetutoriais 20de43

Quandoointerpretadorencontraessecomandotestaacondição,seforverdadeira,
executaoblocodeComandos_1.Seacondiçãoforfalsa(0),ointerpretadorpulaparaElsee
executaoblocodecomandos_2.

Comodápraperceber,háaquiumaeconomiadeprocessadorumavezqueoteste
dacondiçãoagorasóérealizadoumavez.

PodemostambémterváriosIf..Then...Elseaninhados,sendoquecadaclausulaElse
estaráligadaaoIf..Thenimediatamenteanterior.

Exemplo13.3:if3.asp

<%@Language=VBScript%>
<HTML><HEAD><TITLE>CursoASP</TITLE></HEAD><BODY>
<%ifWeekDay(Date)=1then%>
HojeéDomingo
<%else
ifWeekDay(Date)=7then%>
HojeéSábado
<%else%>
Hojeédiadetrabalhareestudar
<%endif
endif%>
</BODY>
</HTML>

Noexemploanterior temosumEndIF para cadaIf .. then ..Else. Issodificulta
bastantealeituradocódigoporpartedoprogramador.Paramelhoraranossavida,oVBScript
possuiumaestruturaderivadadaanterior:oIfThenElseIf.Adiferençadessaestruturaparaa
anterioréqueagorasóprecisamosdeumendifaofinaldetodososcomandos.Sintaxe:

If<Condição>Then
Comandos_1

Exemplo13.2:if2.asp

<%@Language=VBScript%>
<HTML>
<HEAD>
<TITLE>CursoASP</TITLE>
</HEAD>
<BODY>
<%ifWeekDay(Date)=1then%>
HojeéDomingo
<%else%>
HojenãoéDomingo
<%endif%>
</BODY>
</HTML>

http://Apostilas.Fok.com.br–SeusitedeApostilasetutoriais

 \nExemplo11:includefiles.asp\n<%@LANGUAGE=VBSCRIPT%>\n\n\nEutenho<%=Dias(#02/10/1978#,Date)%>diasdevida!
\nOuseja,maisoumenos<%=Horas(#02/10/1978#,Date)%>horasde\nvida!\n\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais 17de43\n\nQuando o valor numérico é menor que\nzero, é retornado o valor imediatamente\nmenor.\nEx:Fix(-1,4)=-2\nInt(1.4)=1\n\nSin(valor_numérico) Retornaosenodeumdeterminadoangulo(radianos)\nCos(valor_numérico) Retorna o coseno de um determinado\n\nangulo(radiando)\nTan(valor_numérico) Retorna a tangente de um determinado\n\nangulo(radiando)\nAtn(valor_numérico) Retorna o arco tangente(radiando) de umdeterminadovalor\nLog(valor_numérico) Retorna o Logaritmo Neperiano de um\n\nnúmero\nExp(valor_numérico) Retornae^valor_numérico\nSqr(valor_numérico) Retorna a raiz quadrada de um valor\n\nnuméricomaiorouigualazero\nDate RetornaaDataatual\nTime RetornaaHoraatual\nNow RetornaaData/Horaatual\nDay(valor_data) Retornaodiadeumadeterminadadata\nMonth(valor_data) Retornaomêsdeumadeterminadadata\nYear(valor_data) Retornaoanodeumadeterminadadata\nWeekday(valor_data) Retorna o dia da semana no formato\n\nnuméricodeumadeterminadadata\n\nHour(tempo) Retorna a hora de uma determinada\nexpressãodetempo\n\nMinute(tempo) Retorna os minutos de uma determinada\nexpressãodetempo\n\nSecond(tempo) Retorna os segundos de uma determinada\nexpressãodetempo\n\nTimeSerial(hora,minuto,segundo) Retornaumaexpressãodetempo\nDateSerial(ano,mes,dia) Retornacaracteressãodedata\nAsc(caractere) RetornaonúmerocorrespondentenatabelaASCIIdocaractereinformado\nChr(valorinteiro) Retorna o caractere ASCII correspondente\n\naovalorinteiroinformado\n\nLcase(string) Convertetodososcaracteresdeumastringparaminúsculas\nUcase(String) Convertetodososcaracteresdeumastringparamaiúscolas\nLen(String) Retorna o número de caracteres de umadeterminadastring\n\nInStr(pos_inicial,string,substring)\n\nRetornaaposiçãodoprimeirocaracterede\numa substring numa determinada string.\nPos_inicialindicaaposiçãodastringonde\ndevemoscomeçarabusca.\nEx:InStr(1,\\u201dLineu\\u201d,\\u201deu\\u201d)=4\nInStr(3,\\u201dLineu\\u201d,\\u201deu\\u201d)=4\n\nMid(string,pos_inicial,Tamanho) Retorna uma substring a partir de uma\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais 18de43\n\nstring informada , bastando apenas\nespecificarmos qual a posição inicial da\nsubstringeseutamanho.\nEx:Mid(\\u201cLineu\\u201d,4,2)=eu\n\nLeft(string,Tamanho)\nCortaumastringapartirdoladoesquerdo.\nTamanhoéonúmerodecaracteresdanova\nstring\nEx:Left(\\u201cLineu\\u201d,3)=Lin\n\nRight(string,Tamanho)\nCorta uma string a partir do lado direito.\nTamanhoéonúmerodecaracteresdanova\nstring\nEx:Right(\\u201cLineu\\u201d,2)=eu\n\nLtrim(String)\nRetira caracteres de espaços que possam\nexistirnoladoesquerdodeumastring\nEx:Ltrim(\\u201cLineuS\\u201d)=\\u201cLineuS\\u201c\n\nRtrim(String)\nRetira caracteres de espaços que possam\nexistirnoladodireitodeumastring\nEx:Ltrim(\\u201cLineuS\\u201d)=\\u201cLineuS\\u201c\n\nTrim(String)\nRetira caracteres de espaço do inicio e do\nfimdeumastring\nEx:Trim(\\u201cLineuS\\u201d)=\\u201cLineuS\\u201d\n\nFormatCurrency(ValorNumérico)\nFormataumvalornuméricoparaopadrão\nmoeda configurado no computador\nservidor.\n\nFormatNumber(ValorNumérico)\nFormataumvalornuméricoparaopadrão\nnumérico configurado no computador\nservidor.\n\n\n\nExemplo12.1:funcoes1.asp\n<%@Language=VBScript%><%OptionExplicit%>\nCursoASP\n<%Dims\nS="Lineu"\nS=Trim(S)%>\nCaracteresdapalavra<%=UCase(s)%>:
\n1-<%=Mid(s,1,1)%>
2-<%=Mid(s,2,1)%>
\n3-<%=Mid(s,3,1)%>
4-<%=Mid(s,4,1)%>
\n5-<%=Mid(s,5,1)%>
\n\n\n\n\nVerifiquenopróximoexemploaocorrênciadeerros:\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nExemplo12.2:funcoes2.asp\n\n\n<%@Language=VBScript%>\n<%OptionExplicit%>\nCursoASP\n\n<%Dimdia,mes,ano\ndia=2\nmes=31\nano=2000%>\n<%=DateSerial(ano,mes,dia)%>\n
<%=CDate(dia&"/"&mes&"/"&ano)%>\n\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais 19de43\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n6.7ESTRUTURASDECONTROLEDEDECISÃO\n\n\nSãoestruturasembutidasnumalinguagemdeprogramaçãoquenospermiteexecutar\ndeterminadoconjuntodecomandosdeacordocomumadeterminadacondição.\n\nOprimeirocomandodoVBScriptqueseencaixanessadescriçãoéoIF:\nIfThen\nComando(s)\nEndif\nEsse comando testa a Condição, se mesma for verdadeira, o bloco de comandos\n\nentreIfeEndIfseráexecutado.\n\n\nExemplo13.1:if1.asp\n<%@Language=VBScript%>\nCursoASP\n\n<%ifWeekDay(Date)=1then%>\nHojeéDomingo\n<%endif%>\n<%ifWeekDay(Date)<>1then%>\nHojenãoéDomingo\n<%endif%>\n\n\n\n\n\nO exemplo anterior apesar de correto poderia ser escrito de uma forma mais\neficiente.Paratal,devemosutilizarocomandoIfassociadoaElse:\n\n\n\nIfThen\nComandos_1\nElse\nComandos_2\nEndif\n\n\nExemplo12.3:funcoes3.asp\n\n\n<%@Language=VBScript%>\n<%OptionExplicit%>\nCursoASP\n\nEugostariadeganhar<%=FormatCurrency(50000)%>pormês!
\nHojeeuganho<%=FormatNumber(35/3)%>pordia...\n\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais 20de43\n\n\n\nQuandoointerpretadorencontraessecomandotestaacondição,seforverdadeira,\nexecutaoblocodeComandos_1.Seacondiçãoforfalsa(0),ointerpretadorpulaparaElsee\nexecutaoblocodecomandos_2.\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nComodápraperceber,háaquiumaeconomiadeprocessadorumavezqueoteste\ndacondiçãoagorasóérealizadoumavez.\n\nPodemostambémterváriosIf..Then...Elseaninhados,sendoquecadaclausulaElse\nestaráligadaaoIf..Thenimediatamenteanterior.\n\n\n\nExemplo13.3:if3.asp\n\n\n<%@Language=VBScript%>\nCursoASP\n<%ifWeekDay(Date)=1then%>\nHojeéDomingo\n<%else\nifWeekDay(Date)=7then%>\nHojeéSábado\n<%else%>\nHojeédiadetrabalhareestudar\n<%endif\nendif%>\n\n\n\n\n\nNoexemploanterior temosumEndIF para cadaIf .. then ..Else. Issodificulta\nbastantealeituradocódigoporpartedoprogramador.Paramelhoraranossavida,oVBScript\npossuiumaestruturaderivadadaanterior:oIfThenElseIf.Adiferençadessaestruturaparaa\nanterioréqueagorasóprecisamosdeumendifaofinaldetodososcomandos.Sintaxe:\n\n\n\nIfThen\nComandos_1\n\nExemplo13.2:if2.asp\n\n\n<%@Language=VBScript%>\n\n\nCursoASP\n\n\n<%ifWeekDay(Date)=1then%>\nHojeéDomingo\n<%else%>\nHojenãoéDomingo\n<%endif%>\n\n\n\n\n\nhttp://Apostilas.Fok.com.br\\u2013SeusitedeApostilasetutoriais","PreviewHtmlContent":null,"FilePreviewUrlBaseUrl":"https://files.passeidireto.com","Comments":[],"RatingValue":0,"RatingCount":0,"IsMetaDescriptionWithPage":true,"AuthorId":895642,"HasBeenReported":false,"FilePreview":{"Id":109686,"FileId":977134,"FolderUrl":"5d9305ee-104e-41c8-94ec-f8cbb27755aa","PageCount":43,"Status":5},"IsIndexable":true,"PreviewType":0,"SubjectDetails":{"Materials":null,"UniversityFollowerCount":null,"UniversityMaterialCount":null,"Alias":"algoritmos","ThumbnailUrl":"https://content.passeidireto.com/Thumbnails/Subjects/algoritmos_20170904173010.png","SubjectMapId":30258458,"SubjectMapName":"Algoritmos","MaterialAggregatorType":1,"Id":726790,"Name":"ALGORITMOS","MaterialCount":6527,"FollowerCount":91297,"Followers":[{"Id":34679843,"Name":"Wallace","ImageUrl":"https://lh4.googleusercontent.com/-fzvieR4u2E8/AAAAAAAAAAI/AAAAAAAAAAA/ACnBePbbCJQ9CKAAZVc7yj6CBudbqBCbFg/s96-c/photo.jpg?sz=120","FacebookId":"-34679843","Active":true,"UniversityName":"IFRN","CourseName":"Análise e Desenvolvimento de Sistemas"},{"Id":38178870,"Name":"Caio","ImageUrl":"https://lh4.googleusercontent.com/-hM0cnoG5aUw/AAAAAAAAAAI/AAAAAAAAAAA/AFiYof12xOLiSCj_yhaYX9lztoW1Z4ox3w/s96-c/photo.jpg?sz=120","FacebookId":"-38178870","Active":true,"UniversityName":"UFRN","CourseName":"Ciência da Computação"},{"Id":38178715,"Name":"Ellen","ImageUrl":"https://graph.facebook.com/937409773084599/picture?width=120&height=120","FacebookId":"937409773084599","Active":true,"UniversityName":"IFBA","CourseName":"Tecnologia da Informação"},{"Id":38178271,"Name":"Helder","ImageUrl":"https://graph.facebook.com/1761701103842035/picture?width=120&height=120","FacebookId":"1761701103842035","Active":true,"UniversityName":"FIAP","CourseName":"Sistemas de Informação / Informática"},{"Id":38178494,"Name":"daniel","ImageUrl":"https://lh4.googleusercontent.com/-KrXO5W7p9f0/AAAAAAAAAAI/AAAAAAAAAAA/AFiYof0xdQq1FgQPwwfh1Dl191w9blA2zg/s96-c/photo.jpg?sz=120","FacebookId":"-38178494","Active":true,"UniversityName":"UNINTER","CourseName":"Análise e Desenvolvimento de Sistemas"}],"LastVisitDate":null,"NewAddedMaterialCount":0},"AuthorImageUrl":"https://graph.facebook.com/100001941047034/picture?width=120&height=120","FileBaseUrl":"https://www.passeidireto.com/arquivo/977134/014_curso-de-active-server-pages-da-ufpi","UserAgent":"Website","FileUrl":"5d9305ee-104e-41c8-94ec-f8cbb27755aa","HasThumbnail":1,"Contents":{"Tbs":[],"PremiumContent":[]},"title":"014 Curso-de-Active-Server-Pages-da-UFPI - ALGORITMOS - 4","description":"Veja grátis o arquivo 014 Curso-de-Active-Server-Pages-da-UFPI enviado para a disciplina de ALGORITMOS Categoria: Anotações - 4 - 977134","userAgent":"Website","HasFlashSale":false,"endDateFlashSales":null,"pdCountData":{"studentCount":10074243}}; ReactDOM.render(React.createElement(ReactPD["File"], initProps), document.getElementById('page_center')); var headerInitProps = {"type":10,"isSearchPage":false,"sponsor":null,"UserAgent":"Website","FlashSaleType":1,"endDateFlashSales":null,"currentUrl":"/arquivo/977134/014_curso-de-active-server-pages-da-ufpi/4","SubjectTitle":"ALGORITMOS","SubjectAlias":"algoritmos","Contents":{"Tbs":[],"PremiumContent":[]}}; ReactDOM.render(React.createElement(ReactPD.Header, headerInitProps), document.getElementById('header')); var footerInitProps = {}; if(footerInitProps.simple != null){ ReactDOM.render(React.createElement(ReactPD.Footer, footerInitProps), document.getElementById('footer')); } } $(document).ready(init); var pdCountData = {"studentCount":10074243};