009_VBScript-e-ASP-Active-Server-Pages
43 pág.

009_VBScript-e-ASP-Active-Server-Pages

Disciplina:ALGORITMOS6.519 materiais90.997 seguidores
Pré-visualização8 páginas
<html><body>
<%
variavel_qualquer=hour(now)
Ifvariavel_qualquer<19then
response.write"BomDia"
Else
response.write"BoaNoite"
Endif
'ocomandoIF...then...Elsecomparouovalordavariavelvariavel_qualquercomum
determinadovalorestipulado(nocaso,19).Seovalorformenorque19,então
escrevanatela"BomDia".Casocontrário(Else),"BoaNoite"
%></body></html>

SelectCase

OcomandoSelectCasepermiteummaiorcontrolesobreosvaloresdeumadeterminada
variavel.ObserveoExemploAbaixo:

<html><body>
<%
variavel_qualquer=hour(now)
SelectCasevariavel_qualquer

ApostilaASP 23de43

ApostilaseTutotriais:http://Apostilas.Fok.com.br

caseis>0andqualquer_variavel<12
response.write"BomDia"
caseos>12andqualquer_variavel<19
response.write"BoaTarde"
case>19andqualquer_variavel<24
response.write"BoaNoite"
Caseelse
response.write"Esterelógioestámaluco"
EndSelect
%></body></html>
observequeocomandoSelectCasedeveserfechadocomocomandoEndSelect.

If...Then...Else;SelectCase

Existem2comandoscapazesdeidentificaroconteúdodeumadeterminadavariável,ede
acordocomessevalor,executarumadeterminadarotina:

If...Then...Else

OcomandoIf...Then...Elsepossibilitaverificarseumadeterminadavariávelestáounão
deacordocomumcritériodeseleção.Observeoexemploabaixo:

<html><body>
<%
variavel_qualquer=hour(now)
Ifvariavel_qualquer<19then
response.write"BomDia"
Else
response.write"BoaNoite"
Endif
'ocomandoIF...then...Elsecomparouovalordavariavelvariavel_qualquercomum
determinadovalorestipulado(nocaso,19).Seovalorformenorque19,então
escrevanatela"BomDia".Casocontrário(Else),"BoaNoite"
%></body></html>

SelectCase

OcomandoSelectCasepermiteummaiorcontrolesobreosvaloresdeumadeterminada
variavel.ObserveoExemploAbaixo:

<html><body>
<%
variavel_qualquer=hour(now)
SelectCasevariavel_qualquer
caseis>0andqualquer_variavel<12
response.write"BomDia"
caseos>12andqualquer_variavel<19
response.write"BoaTarde"
case>19andqualquer_variavel<24

ApostilaASP 24de43

ApostilaseTutotriais:http://Apostilas.Fok.com.br

response.write"BoaNoite"
Caseelse
response.write"Esterelógioestámaluco"
EndSelect
%></body></html>
observequeocomandoSelectCasedeveserfechadocomocomandoEndSelect.

RotinasdeLoop

Loopssãorotinasquedevemserrepetidasatéqueumadeterminadacondiçãoseja
satisfeita.Existem3comandosquepermitemtalsituação:

Abaixoseguemascaracterísticaseexemplosdecadacomando.

Do...Loop
OcomandoDo...Loopexecutaumadeterminadarotinaatéqueacondiçãosetorne
verdadeira.Observeoexemploabaixo:

<html><body>
<%
x=0
DoUntilx=10
x=x+1
Loop
response.writex
%></body></html>

parainterromperoLoop,usa-seocomandoExitDo

For...Next

OcomandoFor...Nextexecutaumadeterminadarotinaatéqueocontador(umavariável)
atinjaovalordeterminado.Observeoexemplo:

<html><body>
<%
Fori=1to50
response.writei
next
%></body></html>
observequenãoénecessárionenhumarotinadeincrementaçãodevaloresemi.A
cadaciclo,ovalordeiéacrescidodeumaunidade,automaticamente.
parainterromperoLoop,usa-seocomandoExitFor

While...Wend

ApostilaASP 25de43

ApostilaseTutotriais:http://Apostilas.Fok.com.br

OcomandoWhile...Wendexecutaumadeterminadarotinaatéqueacondiçãoimposta
sejaalcançada.Observeoexemplodado:

<html><body>
<%
q="SELECT*FROMcadastrowherecidade='SãoPaulo'"
connstring="DBQ=c:\teste.mdb;Driver={MicrosoftAccessDriver(*.mdb)}"
SetConexao=Server.CreateObject("ADODB.Connection")
Conexao.Openconnstring,"",""
Settabela=Conexao.Execute(q)
Whilenottabela.EOF
response.writetabela("nome").value
wend
%></body></html>

RotinasdeLoop

Loopssãorotinasquedevemserrepetidasatéqueumadeterminadacondiçãoseja
satisfeita.Existem3comandosquepermitemtalsituação:

Abaixoseguemascaracterísticaseexemplosdecadacomando.

Do...Loop

OcomandoDo...Loopexecutaumadeterminadarotinaatéqueacondiçãosetorne
verdadeira.Observeoexemploabaixo:

<html><body>
<%
x=0
DoUntilx=10
x=x+1
Loop
response.writex
%></body></html>

parainterromperoLoop,usa-seocomandoExitDo

For...Next
OcomandoFor...Nextexecutaumadeterminadarotinaatéqueocontador(umavariável)
atinjaovalordeterminado.Observeoexemplo:

<html><body>
<%
Fori=1to50
response.writei
next
%></body></html>
observequenãoénecessárionenhumarotinadeincrementaçãodevaloresemi.A
cadaciclo,ovalordeiéacrescidodeumaunidade,automaticamente.

ApostilaASP 26de43

ApostilaseTutotriais:http://Apostilas.Fok.com.br

parainterromperoLoop,usa-seocomandoExitFor

While...Wend

OcomandoWhile...Wendexecutaumadeterminadarotinaatéqueacondiçãoimposta
sejaalcançada.Observeoexemplodado:

<html><body>
<%
q="SELECT*FROMcadastrowherecidade='SãoPaulo'"
connstring="DBQ=c:\teste.mdb;Driver={MicrosoftAccessDriver(*.mdb)}"
SetConexao=Server.CreateObject("ADODB.Connection")
Conexao.Openconnstring,"",""
Settabela=Conexao.Execute(q)
Whilenottabela.EOF
response.writetabela("nome").value
wend
%></body></html>

RotinasdeLoop

Loopssãorotinasquedevemserrepetidasatéqueumadeterminadacondiçãoseja
satisfeita.Existem3comandosquepermitemtalsituação:

Abaixoseguemascaracterísticaseexemplosdecadacomando.

Do...Loop

OcomandoDo...Loopexecutaumadeterminadarotinaatéqueacondiçãosetorne
verdadeira.Observeoexemploabaixo:

<html><body>
<%
x=0
DoUntilx=10
x=x+1
Loop
response.writex
%></body></html>

parainterromperoLoop,usa-seocomandoExitDo

For...Next

OcomandoFor...Nextexecutaumadeterminadarotinaatéqueocontador(umavariável)
atinjaovalordeterminado.Observeoexemplo:

<html><body>
<%
Fori=1to50

ApostilaASP 27de43

ApostilaseTutotriais:http://Apostilas.Fok.com.br

response.writei
next
%></body></html>
observequenãoénecessárionenhumarotinadeincrementaçãodevaloresemi.A
cadaciclo,ovalordeiéacrescidodeumaunidade,automaticamente.

parainterromperoLoop,usa-seocomandoExitFor

While...Wend

OcomandoWhile...Wendexecutaumadeterminadarotinaatéqueacondiçãoimposta
sejaalcançada.Observeoexemplodado:

<html><body>
<%
q="SELECT*FROMcadastrowherecidade='SãoPaulo'"
connstring="DBQ=c:\teste.mdb;Driver={MicrosoftAccessDriver(*.mdb)}"
SetConexao=Server.CreateObject("ADODB.Connection")
Conexao.Openconnstring,"",""
Settabela=Conexao.Execute(q)
Whilenottabela.EOF
response.writetabela("nome").value
wend
%></body></html>

TiposdeDados

OVBScriptcontémapenasumtipodevariável,denominadoVariant.Otipovariantpode
armazenarqualquertipodedado,edeacordocomotipodedadosqueéarmazenado,é
possívelclassifica-lodeacordocomossubtiposdedados,abaixorelacionados:

Subtipo Descrição
Empty Variávelquecontém0paravaloresnuméricose""(string

vazia)parastrings.
Null Variávelquenãocontémdadoalgum.
Boolean ContémTrueouFalse
Byte Númerosinteirosentre0e255
Integer Númerosinteirosnointervalode-32,768a32,767.
Long Númerosinteirosnointervalode-2,147,483,648a2,147,483,647.

Single
Númeroscompontoflutuantedeprecisãosimplesnafaixade-
3.402823E38a-1.401298E-45paranúmerosnegativose
1.401298E-45a3.402823E38paranúmerospositivos.

Double
Númeroscompontoflutuantededuplaprecisãonafaixade-
1.79769313486232E308a-4.94065645841247E-324para
númerosnegativose4.94065645841247E-324a
1.79769313486232E308paranúmerospositivos.

Date DadosnoformatodeData(dataetempo)nafaixade1de

ApostilaASP 28de43

ApostilaseTutotriais:http://Apostilas.Fok.com.br

(Time) janeirode100a31dedezembrode999.(January1,100a
December31,9999).

String Contémdadosnoformatodestring,quepodemteraté
aproximadamente2bilhõesdecaracteresdetamanho.

PS:épossívelaconversãodedadosdeumtipoparaoutro,masparaisso,osdados
devemsercompatíveiscomosubtipodesejado,ouseja,aString"23/5/99"podeser
convertidaparaosubtipoDate,evice-versa.MasaString"ASPBRASIL"nãopode.
Éimportanteaconversãodetiposdedadosumavezqueomodocomoosdadosserão
manipuladosdependemdoseusubtipo.

ConvertendoDados

VerificandoeConvertendoTiposdeDadosAlinguagemVBScriptcontémalgumas