Apostila de Asp - PARTE 3


AtEndOfLine 
Retorna TRUE caso o ponteiro tenha chegado ao 
final da linha. Usado apenas em arquivos abertos 
para leitura. 
AtEndOfStream 
Retorna TRUE caso o ponteiro tenha chegado ao 
final do arquivo. Usado apenas em arquivos abertos 
para leitura. 
Column  Retorna o número da coluna que o ponteiro se 
encontra. A primeira coluna tem numeração 1. 
Line  Retorna o número da linha que o ponteiro se 
encontra. A primeira linha tem numeração 1. 
Close  Fecha um arquivo aberto. 
Read  Lê um determinado número de caracteres do arquivo. 
ReadAll 
Lê todo o arquivo. Quando o arquivo for muito 
grande, usar outros métodos de leitura, como a leitura 
de linha por linha. 
ReadLine  Lê uma linha inteira, ou seja, lê os caracteres que 
estão entre a posição do ponteiro e o final da linha. 
Skip  pula um determinado numero de caracteres. 
SkipLine  pula uma linha inteira. 
Write  grava uma determinada string para o arquivo. 
WriteLine  grava uma determinada string para o arquivo e 
posiciona o ponteiro no início da linha seguinte. 
WriteBlankLines  grava uma determinada quantia de linhas brancas ao 
arquivo. 
Veja os exemplos a seguir:  

<HTML><HEAD><TITLE>Componente File Access</TITLE></HEAD> 
<BODY> 
<!--#include file="fobjvbs.inc"--> 
<% 
Set objeto= CreateObject("Scripting.FileSystemObjects") 
'a linha acima criou uma instância do componente FileAccess 
Set gv = objeto.OpenTextFile("c:\test.txt", ForWriting, True, False) 
'a linha acima abre o arquivo C:\test.txt para gravação. Caso ele não exista., é criado 
um. (este código tem exatamente o mesmo efeito do método CREATETEXTFILE. 
gv.Writeline("Esta linha foi inserida com o uso do componente FileAccess.") 
gv.Close 
'a linha acima fecha o arquivo aberto para gravação 
objeto=nothing 
'a linha acima libera a variável objeto, dessa forma, ela não fica armazenando 
valores que não serão mais usados após o fechamento do arquivo. 
%> 
<p>Pronto. Foi gravada a linha acima</p> 
</BODY></HTML>  
  
Componente Browser Capabilities 
Apostila ASP    11 de 43 
Apostilas e Tutotriais: http://Apostilas.Fok.com.br 

O componente Browser Capabilities  tem como objetivo ser usado para determinar quais 
são as propriedades que cada Browser (navegador) que está acessando o seu site tem. 
Desde o nome e versão até a detecção de  suporte a JavaScript, Applet  Java, Cookies, 
etc. Abaixo, uma lista contendo as propriedades que podem ser determinadas a partir do 
componente Browser Capabilites. 

ActiveXControls  Especifica quando o browser suporta controles 
ActiveX 
backgroundsounds  Especifica quando o browser tem capacidade de 
tocar som de fundo (back ground sound) 
beta  Especifica quando o brower é versão beta. 
browser  Especifica o nome do browser 
cookies  Especifica se o browser aceita cookies 
frames  Especifica se o browser suporta frames 
javaapplets 
Especifica se o browser suporta Applets Java (ou, 
em alguns casos, se o suporte a Applets Java está 
ativo) 
javascript  Especifica se o browser suporta JavaScript (ou, em 
alguns casos, se o suporte a Java Script está ativo) 
majorver  Especifica o número mais significativo da Versão (na 
versão 4.01, por exemplo, é retornado o número 4)  
minorver  Especifica os números menos significativos da 
Versão (no exemplo acima, retorna o número 01) 
platform  Especifica em qual sistema operacional o browser 
está instalado  
tables  Especifica se o browser suporta tabelas 
vbscript 
Especifica quando o browser suporta vbscript 
(processamento local de vbscript - não há nada a ver 
com o vbscript usado na programação ASP, o qual é 
processado no servidor) 
version  Retorna o número da versão do browser (exemplo: 
4.01)  
win16 
Especifica se o browser roda num computador com 
sistema operacional 16 bits (win3.x). Válido somente 
para Internet Explorer. 

Caso alguma dessas especificações não seja definida pelo browser, a string "UNKNOWN" 
é retornada. 

sintax: 

Set bc = Server.CreateObject("MSWC.BrowserType") 
... = bc.propriedade 
<html><head> 
<TITLE>Componente browser Capabilities</TITLE> 
</head><body bgcolor="#FFFFFF"> 
<% Set bc = Server.CreateObject("MSWC.BrowserType") %>  
Browser: <%=bc.browser %><p>  
Apostila ASP    12 de 43 
Apostilas e Tutotriais: http://Apostilas.Fok.com.br 
Versão: <%=bc.version%><p> 
<% if (bc.frames = TRUE) then %>  
Este browser aceita frames<p><p> 
<% else %> 
É melhor você trocar de Browser. Este não suporta frames... 
<% end if %> 
<% if (bc.tables = TRUE) then %>  
Legal. Este browser aceita tabelas...<p> 
<% else %> 
É melhor você trocar de Browser. Este não suporta nem tabelas...é bem 
velhinho...<p> 
<% end if %> 
<% if (bc.BackgroundSounds = TRUE)then %> 
Este browser permite que haja fundo musical nas páginas<p> 
<% else %> 
Ou este browser é bem antiguinho, ou você realmente não gosta de muito 
barulho.<p> 
<% end if %> 

<% if (bc.vbscript = TRUE) then %> 
Este Browser aceita processamento local de VBScript<p> 
<% else %> 
Este Browser não permite o processamento local de VBScript<p> 
<% end if %> 

<% if (bc.javascript = TRUE) then %> 
Este Browser aceita processamento local de JavaScript<p> 
<% else %> 
Este Browser não permite o processamento local de JavaScript<p> 
<% 
end if 
set bc=nothing 
%> 
</body></html> 
   
Application/Session Obj. 

O  objeto  Application  tem  como  objetivo  armazenar  e  compartilhar  valores,  estados  e 
propriedades de um grupo. No caso, valores comuns a todos os visitantes do site, como 
número  total de  visitantes no  site, quantas pessoas estão  visitando o  site  no momento, 
etc. 
O  objeto  session  tem  como  objetivo  armazenar  e  compartilhar  valores,  estados  e 
propriedades  de  cada  visitante,  individualmente.  São  bons  exemplos  o  uso  em  lojas 
virtuais,  onde  a  cesta  de  compras  pode  ser  armazenada  dentro  de  uma  session. 
O objeto Application é ativado quando for feita a primeira visita ao site, e termina quando 
o  servidor  for  desligado  (é  permitido  gravar  todos  esses  valores  em  banco  de  dados, 
assim não há  perda dos  valores). Todo o  script  e  códigos  de armazenamento  somente 
podem ser escritos em um arquivo chamado global.asa, que deve permanecer na pasta 
raiz  do  site. 
O objeto session é criado para cada visitante, cada vez que um visitante entra no site, e é 
Apostila ASP    13 de 43 
Apostilas e Tutotriais: http://Apostilas.Fok.com.br 
destruído toda vez que este visitante sai do site. Ao entrar no site, cada visitante recebe 
um  ID  (número  de  identificação),  o  qual  é  usado  para  identificar  o  usuário  e  para 
armazenar os valores, estados e propriedades de cada visitante, individualmente. 
O arquivo global.asa tem o seguinte formato: 

<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER> 
Sub Application_OnStart 
End sub 
Sub Application_OnEnd 
End sub 
Sub Session_OnStart 
End sub 
Sub Session_OnEnd 
End sub 
</SCRIPT> 

Nos  eventos  Application_OnStart  e  Application_OnEnd  estão  armazenados  os  valores 
comuns  a  todos  os  visitantes.  Nos  eventos  Session_OnStart  e  Session_OnEnd  estão 
armazenados os códigos, scripts e valores usados nas sessions (valores individuais para 
cada visitante).  
Métodos dos Objetos Application e Session: 
Application.Lock  ->  é  usado  para  bloquear  o  acesso  de  outras  páginas  ao  evento 
Application_OnStart  ou  Application_OnEnd,  com  excessão  da  página  que  requisitou  o 
bloqueio, permitindo assim que somente esta página possa fazer alterações no evento. 
Application_Unlock -> Desbloqueia o acesso de outras páginas. 
Esses  métodos  são  usados  para  que  duas  páginas  não  tentem  alterar  as  mesmas 
propriedades  ou  valores  ao  mesmo  tempo.  Pois  isso  acarretaria  numa  perda  de 
consistência dos dados armazenados. 
Abaixo, um exemplo de como saber o número de visitantes totais do site e o número de 
visitantes no site no presente momento. 

<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER> 
Sub Application_OnStart 
Application("Totalvisitas") = 0 
Application("datainicial") = now 
Application("Visitasatuais") = 0 
End sub 
Sub Application_OnEnd 
End sub 
Sub Session_OnStart 
Application.Lock 
Application("Totalvisitas") = Application("Totalvisitas") + 1 
Application("Visitasatuais") = Application("Visitasatuais") + 1 
Application.Unlock 
End sub 
Sub Session_OnEnd 
Application.Lock 
Application("Visitasatuais") = Application("Visitasatuais") -1 
Application.Unlock 
End sub 
</SCRIPT> 

Apostila ASP    14 de 43 
Apostilas e Tutotriais: http://Apostilas.Fok.com.br 
abaixo, código para exibir esses valores. 

<HTML><header><title>Application & Session</title></header> 
<body> 
<% 
response.write "Visitas totais desde" & application("datainicial") & ":" & 
application("Totalvisitas") 
response.write "Visitantes no site no momento:" & application("Visitasatuais") 
%> 
</body> 
</html>  
  
Componente Database 

O componente Database Access é um componente usado para acessar bancos de dados 
de acesso aleatório, tais como Access, SQLServer, DBF, Oracle, ... 
O  componente Database Access  permite  a  consulta,  inserção,  alteração  e  exclusão  de 
dados nos bancos de dados.Tais operações são, geralmente, feitas através de comandos 
SQL  (Structured  Query  Language),  a  qual  será  exemplificada  mais  abaixo.  
Este  tutorial  não  contém  todos  os  comandos  e  possibilidades  de  uso  do  componente 
Database Access,  uma  vez  que  este  é muito  grande  e  complexo, mas  os  comandos  e 
métodos mais utilizados estão citados neste documento. 

sintaxe: 

conexão com o componente: Set Conn = Server.CreateObject("ADODB.Connection")  
abertura de um banco de dados já existente: Conn.Open "nome da ligação ODBC ou 
path do BD", "UserID", "Senha" 
execução de comandos SQL: Set rsQuery = Conn.Execute("string SQL") 
um modo alternativo de se abrir um banco de dados para gravação:  
Set RS = Server.CreateObject("ADODB.RecordSet") 
RS.Open "tabela", Conn , adOpenKeyset, adLockOptimistic  
Para o funcionamento correto do componente ASP, o arquivo adovbs.inc deve ser 
incluído no código da página que contém o código de manipulação do banco de dados. 
Abaixo, uma tabela com alguns dos comandos mais usados desse componente:  

EOF  Retorna TRUE caso o ponteiro tenha chegado ao 
final do arquivo.(depois do último registro)  
BOF  Retorna TRUE caso o ponteiro esteja posicionado no 
início do arquivo.(antes do primeiro registro) 
MoveFirst  Posiciona o ponteiro para o início do banco de dados. 
MoveLast  Posiciona o ponteiro no final do banco de dados 
MoveNext  Move o ponteiro 1 registro adiante no banco de 
dados. 
MovePrevious  Move o ponteiro para o registro anterior no banco de 
dados. 
AddNew 
Adiciona um novo registro ao banco de dados. É 
usado quando, ao invés de usar SQL, abre-se o 
banco de dados no modo RecordSet. 


Comentários