VBScript é uma linguagem de criação de Scripts, a qual é derivada do Visual Basic (VB) e do VBA (Visual Basic for Applications). A ideia deste Post é ensinar o VBScript para rodar scripts no lado servidor utilizando a tecnologia ASP 3.0.
Abaixo é apresentado um resumo da linguagem, materializado através de uma página ASP. Em outros post vamos falar sobre os objetos da ASP.DLL
<%
'ASP é uma ferramenta antiga (mas ainda poderosa) para criar páginas da Web dinâmicas.
'ASP é uma tecnologia (muito parecida com PHP) para executar scripts em um
'servidor web.
%>
<!DOCTYPE html>
<html lang="pt-br">
<head>
<title>Resumo VBSCRIPT</title>
<meta charset="utf-8">
</head>
<body>
<%
'utilize Option Explicit para forçar a declaração de variáveis
'Option Explicit
'variáveis utilize o comando dim para declarar variáveis
Dim x,y,z
x = 20
y = 10
z = 5
Dim nome
nome = "Hugo"
'O VB utiliza um tipo de dados conhecido como Variante que possui os seguintes
'subtipos
'Subtipo - Descrição
'Empty - O Valor é zero para variáveis numéricas ou uma String de tamanho zero
'(“ “), para variáveis de texto.
'Null - A variável não contém dados válidos.
'Boolean - Contém variáveis que somente podem assumir dois valores: Verdadeiro ou
'Falso (True ou False).
'Byte - Valor inteiro, na faixa de 0 até 255.
'Integer - Valor inteiro, na faixa de -32768 até 32767.
'Currency - Valores na faixa de –923.337.203.685.447,5808
'até 922.337.203.685.447,5807
'Long - Valor inteiro, na faixa de –2.147.483.648 até 2.147.483.647.
'Date/Time - É um número que representa a data entre 01 de Janeiro do ano 100,
' até 31 de Dezembro de 9999 (Olha o bug do ano 2000 chegando).
'String - Texto de tamanho variável, pode conter, aproximadamente,
' 2 bilhões de caracteres.
'Object - Pode conter um objeto qualquer, como um Controle Activex,
'ou um Objeto COM+
'Error - Pode conter um número de erro.
'operadores aritméticos
'Operador Símbolo Descrição
'Adição + Soma o valor de duas ou mais variáveis.
'Subtração - Subtração entre duas ou mais variáveis.
'Multiplicação * Multiplica os valores de duas ou mais variáveis.
'Divisão / Divide o valor de duas ou mais variáveis.
'Inteiro da divisão \ Retorna a parte inteira da divisão entre dois números
'Exponenciação ^ x^y -> É o valor do número x, elevado na potência y.
'Módulo mod Retorna o resto de uma divisão de 2 números.
Dim som, subtr, divis, mult, intdivs, expo, modul
som = x + y
subtr = x - y
divis = x / y
mult = x * y
intdivs = x \ y
expo = x ^ y
modul = x mod y
response.write(nome & "<br>")
response.write ("A soma de x e Y é igual a " & som & "<br>")
'Operador Símbolo Descrição
'Igualdade = É igual a.
'Desigualdade <> É diferente de.
'Maior que > É maior do que.
'Menor que < É menor do que.
'Maior ou igual <= É maior ou igual a.
'Menor ou igual >= É menor ou igual a.
response.write("X" & " é igual a " & y & "? " & X = y & "<br>")
'Estruturas de condição
If x > y Then
response.write ("X é maior que é Y" & "<br>")
else
response.write("X não é maior que Y" & "<br>")
End if
y = 20
if x > y then
response.write ("X é maior que é Y" & "<br>")
elseif x = y then
response.write ("X é igual a Y" & "<br>")
elseif x < y then
response.write ("X é menor a Y" & "<br>")
else
response.write ("X é diferente Y" & "<br>")
end if
select case y
case 10
response.write ("y é igual a 10" & "<br>")
case 15
response.write ("y é igual a 15" & "<br>")
case else
response.write ("Não sei o valor de Y" & "<br>")
end select
'Estruturas de repetição
for i = 0 to z
response.write (i & "<br>")
next
For i=0 to x Step 2
response.write (i & "<br>")
next
dim contador
contador = 0
do While contador < z
response.write(contador & "<br>")
contador = contador + 1
loop
contador = 0
DO
response.write(contador & "<br>")
contador = contador + 1
Loop While contador < z
contador = 0
do until contador < z
response.write(contador & "<br>")
loop
'Funções e Procedimentos criados pelo usuário
Function CDolar(valor)
CDolar = (valor * 5)
End Function
Response.write(CDolar(10) & "<br>")
'procedimentos
sub escreve_nome(nome)
response.write(nome)
end sub
Call escreve_nome("Rogério")
'ou
response.write("<br>")
escreve_nome("Habbema")
'funções da linguagem
response.write(Asc(“Ainda chovia”) & "<br>")
' ver referência em http://msdn.microsoft.com/scripting
%>
</body>
</html>
Nenhum comentário:
Postar um comentário