Apostila de Asp

Update Salva as alterações feitas no banco de dados, no

modo RecordSet.

Veja os exemplos a seguir:

<HTML><HEAD><TITLE>Adicionando um novo registro ao banco de dados

cadastro</TITLE></HEAD>

<BODY>

'a variavel abaixo - Connstring - guarda o path físico do banco de dados no

servidor. poderia armazenar, no lugar do path, o nome da conexão ODBC, caso esta

tenha sido criada (como será visto no próximo exemplo)

ConnString="DBQ=e:\aspbrasil\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}"

Set Conn = Server.CreateObject("ADODB.Connection")

Set RS = Server.CreateObject("ADODB.RecordSet")

Conn.Open ConnString,"",""

RS.Open "cadastro", Conn , adOpenKeyset, adLockOptimistic

RS.Addnew

RS("nome") = "João"

'a linha acima atribui o valor João ao campo nome, nesse novo registro.

RS("email") = "joao@aspbrasil.com.br"

'a linha acima atribui o valor joao@aspbrasil.com.br ao campo email do banco de

dados.

RS.update

'a linha acima confirma a inclusão dos dados. Caso este comando não seja usado, o

registro não é inserido.

RS.Close

Set Conn = nothing

Set RS = nothing

<p>Pronto. Foi gravado o registro acima.</p>

</BODY></HTML>

<HTML><HEAD><TITLE>Adicionando um novo registro ao banco de dados

cadastro usando ligação ODBC</TITLE></HEAD>

<BODY>

'a variavel abaixo - Connstring - guarda o nome da conexão ODBC (há a

necessidade de a ligação ODBC já estar criada).

ConnString="odbcteste"

Set Conn = Server.CreateObject("ADODB.Connection")

Set RS = Server.CreateObject("ADODB.RecordSet")

Conn.Open ConnString,"",""

RS.Open "cadastro", Conn , adOpenKeyset, adLockOptimistic

RS.Addnew

RS("nome") = "João"

'a linha acima atribui o valor João ao campo nome, nesse novo registro.

RS("email") = "joao@aspbrasil.com.br"

'a linha acima atribui o valor joao@aspbrasil.com.br ao campo email do banco de

dados.

RS.update

Apostila ASP 16 de 43

Apostilas e Tutotriais: http://Apostilas.Fok.com.br

'a linha acima confirma a inclusão dos dados. Caso este comando não seja usado, o

registro não é inserido.

RS.Close

Set Conn = nothing

Set RS = nothing

<p>Pronto. Foi gravado o registro acima.</p>

</BODY></HTML>

<HTML><HEAD><TITLE>Fazendo uma consulta SQL e mostrando os dados obtidos

em uma tabela</TITLE></HEAD>

<BODY>

'a variavel abaixo - Connstring - guarda o nome da conexão ODBC (há a

necessidade de a ligação ODBC já estar criada).

ConnString="odbcteste"

'a variável abaixo guarda a string SQL, usada para fazer a consulta no banco de

dados. No caso, pede-se para gerar uma consulta onde apenas os registros onde o

campo NOME é igual ao valor JOÃO.

SQLstring = "select * from cadastro where nome = 'joão' "

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConnString,"",""

Set rsQuery = Conn.Execute(SQLstring)

'a linha acima gerou uma consulta chamada rsQuery. todos os registros que

satisfazem a SQLstring estão armazenados nesta variável.

<table>

<tr><td>Nome</td><td>email</td></tr>

While not rsQuery.EOF

</tr>

rsQuery.Movenext

Wend

</table>

rsQuery.Close

set Conn = nothing

Set rsQuery = nothing

</BODY></HTML>

<HTML><HEAD><TITLE>Fazendo uma alteração via SQL</TITLE></HEAD>

<BODY>

'a variavel abaixo - Connstring - guarda o nome da conexão ODBC (há a

necessidade de a ligação ODBC já estar criada).

ConnString="odbcteste"

'a variável abaixo guarda a string SQL, usada para fazer a atualização no banco de

Apostila ASP 17 de 43

Apostilas e Tutotriais: http://Apostilas.Fok.com.br

dados. No caso, pede-se para mudar o nome e o email do registro de código 5.

SQLstring = "update cadastro set nome = 'maria' and

email='maria@aspbrasil.com.br' "

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConnString,"",""

Set rsQuery = Conn.Execute(SQLstring)

rsQuery.Close

Set Conn = nothing

Set rsQuery = nothing

<p>Arquivo alterado.</p>

</BODY></HTML>

<HTML><HEAD><TITLE>Fazendo uma exclusão de registro via

SQL</TITLE></HEAD>

<BODY>

'a variavel abaixo - Connstring - guarda o nome da conexão ODBC (há a

necessidade de a ligação ODBC já estar criada).

ConnString="odbcteste"

'a variável abaixo guarda a string SQL, usada para fazer a exclusão do registro no

banco de dados. No caso, pede-se para excluir o(s) registro(s) onde o código é 5.

Por se tratar de um número e não de uma string, o valor do código, no caso 5, não

fica entre aspas.

SQLstring = "delete * from cadastro where codigo = 5 "

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConnString,"",""

Set rsQuery = Conn.Execute(SQLstring)

Set rsQuery = nothing

Set Conn = nothing

<p>Registro Excluído</p>

</BODY></HTML>

Server Variables

ServerVariables é um conjunto de variáveis de sistema, que podem indicar desde o IP

remoto, protocolo, HOST do servidor de acesso do usuário, etc.

sintaxe:

valor = Request.ServerVariables("variável")

Abaixo, uma tabela com as principais variáveis desse conjunto.

CONTENT_LENGTH Retorna o tipo de conteúdo que foi enviado ao

servidor.

QUERY_STRING String que sucede o ? no endereço URL.

REMOTE_ADDR IP do usuário

REMOTE_HOST

Nome do servidor correspondente ao

REMOTE_ADDR (nome do provedor de acesso do

usuário)

Apostila ASP 18 de 43

Apostilas e Tutotriais: http://Apostilas.Fok.com.br

REQUEST_METHOD Método usado para transmissão das variáveis de uma

página para outra (GET ou POST)

SERVER_NAME Nome do servidor de hospedagem, como usado no

URL (pode ser o IP ou DNS)

URL endereço URL requisitado (sem a query_string)

Veja os exemplos a seguir:

<HTML><HEAD><TITLE>Server Variables </TITLE></HEAD>

<BODY><p>o IP usado pela sua conexão é:

<%=request.servervariables("REMOTE_ADDR")%></p></BODY>

</HTML>

Cookies são pequenos arquivos no formato txt, gravados nos computadores dos usuários,

contendo informações que podem ser recuperadas posteriormente.

sintaxe:

gravação de informações no cookie:

response.cookies("nomedocookie")("nomedoparametro") = "valordoparâmetro"

recuperação de informações do cookie: variável =

request.cookies("nomedocookie")("nomedoparametro")

determinação da data de expiração do cookie:

Response.Cookies("nomedocookies").Expires = data no formato mm/dd/aa

obs: caso não seja determinada uma data de expiração, o cookie será apagado assim que

o browser for fechado.

Veja os exemplos a seguir:

response.cookies("aspbrasilteste")("data") = now

response.cookies("aspbrasilteste")("nome") = "João"

'as linhas acima criaram o cookie aspbrasil e 2 parâmetros, data e nome.

response.cookies("aspbrasilteste").expires = "6/25/99"

'a linha acima determina uma data de expiração do cookie

<HTML><HEAD> <TITLE>Criando um cookie</TITLE>

</HEAD>

<BODY>

response.write "O cookies aspbrasilteste foi criado em: " &

request("aspbrasilteste")("data")

response.write "Quem criou foi: " & request("aspbrasilteste")("nome")

</BODY></HTML>

Objetos Application e Session

Apostila ASP 19 de 43

Apostilas e Tutotriais: http://Apostilas.Fok.com.br

O objeto Application foi criado para armazenar propriedades (valores) ligados a um

conjunto de usuários. No caso, os visitantes do site, de um modo geral. Como exemplo,

podemos citar o número total de visitantes no site a partir de uma determinada data, ou o

número de visitantes online no site.

O objeto Session foi criado para armazenar propriedades (valores) ligados a cada

visitante, individualmente. Como exemplo, podemos citar o carrinho de compras de um

site de comércio online.

Uma Session é criada quando o visitante entra no site (cada visitante tem uma session e

cada session recebe um ID), e é destruída quando o visitante sai do site (seja por logoff

explícito ou por TimeOut). Já uma Application é iniciada ao haver o primeiro pedido de

acesso ao objeto Application, e é encerrado quando o servidor for desligado.

Todo o código que se deseja executar ao criar ou destruir uma session, bem como uma

Application devem estar contidos no arquivo global.asa, um arquivo texto no formato

abaixo demonstrado, que deve ser colocado no diretório raiz do site.

As variáveis do objeto Application e do objeto Session são armazenadas no servidor, mas

é necessário que o browser aceite cookies, pois um cookie com o ID da sessão é criado

no computador do visitante, para identificá-lo.

Veja o exemplo abaixo:

Listagem do arquivo global.asa

Sub Application_OnStart

Application("totaldeusuarios") = 0

Application("datainicial") = now

Application("usuariosonline") = 0

End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart

Session.TimeOut = 20

Application.Lock

Application("totaldeusuarios") = Application("totaldeusuarios") + 1

Application("usuariosonline") = Application("usuariosonline") + 1

Application.Unlock

End Sub

Sub Session_OnEnd

Application.Lock

Application("usuariosonline") = Application("usuariosonline") - 1

Application.Unlock

End Sub

</SCRIPT>

CONTINUE >>>

E-BOOKOASIS

Pesquisar este blog

Apostila de Asp - PARTE 4

Comentários

Postar um comentário