\r\n\r\n\r\n\r\n\r\nApostilaASP 14de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br\r\n\r\nabaixo,códigoparaexibiressesvalores.\r\n\r\n\r\n
Application&Session
\r\n\r\n<%\r\nresponse.write"Visitastotaisdesde"&application("datainicial")&":"&\r\napplication("Totalvisitas")\r\nresponse.write"Visitantesnositenomomento:"&application("Visitasatuais")\r\n%>\r\n\r\n\r\n\r\n\r\n\r\n\r\nComponenteDatabase\r\n\r\n\r\nOcomponenteDatabaseAccesséumcomponenteusadoparaacessarbancosdedados\r\ndeacessoaleatório,taiscomoAccess,SQLServer,DBF,Oracle,...\r\nO componente Database Access permite a consulta, inserção, alteração e exclusão de\r\ndadosnosbancosdedados.Taisoperaçõessão,geralmente,feitasatravésdecomandos\r\nSQL (Structured Query Language), a qual será exemplificada mais abaixo.\r\nEste tutorial não contém todos os comandos e possibilidades de uso do componente\r\nDatabase Access, uma vez que este é muito grande e complexo, mas os comandos e\r\nmétodosmaisutilizadosestãocitadosnestedocumento.\r\n\r\n\r\nsintaxe:\r\n\r\n\r\nconexãocomocomponente:SetConn=Server.CreateObject("ADODB.Connection")\r\naberturadeumbancodedadosjáexistente:Conn.Open"nomedaligaçãoODBCou\r\npathdoBD","UserID","Senha"\r\nexecuçãodecomandosSQL:SetrsQuery=Conn.Execute("stringSQL")\r\nummodoalternativodeseabrirumbancodedadosparagravação:\r\nSetRS=Server.CreateObject("ADODB.RecordSet")\r\nRS.Open"tabela",Conn,adOpenKeyset,adLockOptimistic\r\nParaofuncionamentocorretodocomponenteASP,oarquivoadovbs.incdeveser\r\nincluídonocódigodapáginaquecontémocódigodemanipulaçãodobancodedados.\r\nAbaixo,umatabelacomalgunsdoscomandosmaisusadosdessecomponente:\r\n\r\n\r\nEOF RetornaTRUEcasooponteirotenhachegadoaofinaldoarquivo.(depoisdoúltimoregistro)\r\nBOF RetornaTRUEcasooponteiroestejaposicionadonoiníciodoarquivo.(antesdoprimeiroregistro)\r\nMoveFirst Posicionaoponteiroparaoiníciodobancodedados.\r\nMoveLast Posicionaoponteironofinaldobancodedados\r\n\r\nMoveNext Moveoponteiro1registroadiantenobancodedados.\r\n\r\nMovePrevious Moveoponteiroparaoregistroanteriornobancodedados.\r\n\r\nAddNew\r\nAdicionaumnovoregistroaobancodedados.É\r\nusadoquando,aoinvésdeusarSQL,abre-seo\r\nbancodedadosnomodoRecordSet.\r\n\r\n\r\n\r\nApostilaASP 15de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br\r\n\r\nUpdate Salvaasalteraçõesfeitasnobancodedados,no\r\nmodoRecordSet.\r\n\r\n\r\n\r\nVejaosexemplosaseguir:\r\n\r\n\r\nAdicionandoumnovoregistroaobancodedados\r\ncadastro\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaopathfísicodobancodedadosno\r\nservidor.poderiaarmazenar,nolugardopath,onomedaconexãoODBC,casoesta\r\ntenhasidocriada(comoserávistonopróximoexemplo)\r\nConnString="DBQ=e:\\aspbrasil\\teste.mdb;Driver={MicrosoftAccessDriver(*.mdb)}"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nSetRS=Server.CreateObject("ADODB.RecordSet")\r\nConn.OpenConnString,"",""\r\nRS.Open"cadastro",Conn,adOpenKeyset,adLockOptimistic\r\nRS.Addnew\r\nRS("nome")="João"\r\n'alinhaacimaatribuiovalorJoãoaocamponome,nessenovoregistro.\r\nRS("email")="joao@aspbrasil.com.br"\r\n'alinhaacimaatribuiovalorjoao@aspbrasil.com.braocampoemaildobancode\r\ndados.\r\nRS.update\r\n'alinhaacimaconfirmaainclusãodosdados.Casoestecomandonãosejausado,o\r\nregistronãoéinserido.\r\nRS.Close\r\nSetConn=nothing\r\nSetRS=nothing\r\n%>\r\n

Pronto.Foigravadooregistroacima.

\r\n\r\nAdicionandoumnovoregistroaobancodedados\r\ncadastrousandoligaçãoODBC\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa\r\nnecessidadedealigaçãoODBCjáestarcriada).\r\nConnString="odbcteste"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nSetRS=Server.CreateObject("ADODB.RecordSet")\r\nConn.OpenConnString,"",""\r\nRS.Open"cadastro",Conn,adOpenKeyset,adLockOptimistic\r\nRS.Addnew\r\nRS("nome")="João"\r\n'alinhaacimaatribuiovalorJoãoaocamponome,nessenovoregistro.\r\nRS("email")="joao@aspbrasil.com.br"\r\n'alinhaacimaatribuiovalorjoao@aspbrasil.com.braocampoemaildobancode\r\ndados.\r\nRS.update\r\n\r\n\r\n\r\nApostilaASP 16de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br\r\n\r\n'alinhaacimaconfirmaainclusãodosdados.Casoestecomandonãosejausado,o\r\nregistronãoéinserido.\r\nRS.Close\r\nSetConn=nothing\r\nSetRS=nothing\r\n%>\r\n

Pronto.Foigravadooregistroacima.

\r\n\r\nFazendoumaconsultaSQLemostrandoosdadosobtidos\r\nemumatabela\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa\r\nnecessidadedealigaçãoODBCjáestarcriada).\r\nConnString="odbcteste"\r\n'avariávelabaixoguardaastringSQL,usadaparafazeraconsultanobancode\r\ndados.Nocaso,pede-separagerarumaconsultaondeapenasosregistrosondeo\r\ncampoNOMEéigualaovalorJOÃO.\r\nSQLstring="select*fromcadastrowherenome='joão'"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nConn.OpenConnString,"",""\r\nSetrsQuery=Conn.Execute(SQLstring)\r\n'alinhaacimagerouumaconsultachamadarsQuery.todososregistrosque\r\nsatisfazemaSQLstringestãoarmazenadosnestavariável.\r\n%>\r\n\r\n\r\n<%\r\nWhilenotrsQuery.EOF\r\n%>\r\n\r\n\r\n<%\r\nrsQuery.Movenext\r\nWend\r\n%>\r\n
Nomeemail
<%=rsQuery("nome").value%><%=rsQuery("email").value%>
\r\n<%\r\nrsQuery.Close\r\nsetConn=nothing\r\nSetrsQuery=nothing\r\n%>\r\n\r\nFazendoumaalteraçãoviaSQL\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa\r\nnecessidadedealigaçãoODBCjáestarcriada).\r\nConnString="odbcteste"\r\n'avariávelabaixoguardaastringSQL,usadaparafazeraatualizaçãonobancode\r\n\r\n\r\n\r\nApostilaASP 17de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br\r\n\r\ndados.Nocaso,pede-separamudaronomeeoemaildoregistrodecódigo5.\r\nSQLstring="updatecadastrosetnome='maria'and\r\nemail='maria@aspbrasil.com.br'"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nConn.OpenConnString,"",""\r\nSetrsQuery=Conn.Execute(SQLstring)\r\nrsQuery.Close\r\nSetConn=nothing\r\nSetrsQuery=nothing\r\n%>\r\n

Arquivoalterado.

\r\n\r\nFazendoumaexclusãoderegistrovia\r\nSQL\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa\r\nnecessidadedealigaçãoODBCjáestarcriada).\r\nConnString="odbcteste"\r\n'avariávelabaixoguardaastringSQL,usadaparafazeraexclusãodoregistrono\r\nbancodedados.Nocaso,pede-separaexcluiro(s)registro(s)ondeocódigoé5.\r\nPorsetratardeumnúmeroenãodeumastring,ovalordocódigo,nocaso5,não\r\nficaentreaspas.\r\nSQLstring="delete*fromcadastrowherecodigo=5"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nConn.OpenConnString,"",""\r\nSetrsQuery=Conn.Execute(SQLstring)\r\nSetrsQuery=nothing\r\nSetConn=nothing\r\n%>\r\n

RegistroExcluído

\r\n\r\n\r\n\r\nServerVariables\r\n\r\n\r\nServerVariableséumconjuntodevariáveisdesistema,quepodemindicardesdeoIP\r\nremoto,protocolo,HOSTdoservidordeacessodousuário,etc.\r\nsintaxe:\r\n\r\n\r\nvalor=Request.ServerVariables("variável")\r\n\r\n\r\nAbaixo,umatabelacomasprincipaisvariáveisdesseconjunto.\r\n\r\n\r\nCONTENT_LENGTH Retornaotipodeconteúdoquefoienviadoao\r\nservidor.\r\n\r\nQUERY_STRING Stringquesucedeo?noendereçoURL.\r\nREMOTE_ADDR IPdousuário\r\n\r\nREMOTE_HOST\r\nNomedoservidorcorrespondenteao\r\nREMOTE_ADDR(nomedoprovedordeacessodo\r\nusuário)\r\n\r\n\r\n\r\nApostilaASP 18de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br"} 009 VBScript-e-ASP-Active-Server-Pages - ALGORITMOS - 4    
009_VBScript-e-ASP-Active-Server-Pages
43 pág.

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

Disciplina:ALGORITMOS6.522 materiais91.191 seguidores
Pré-visualização8 páginas
Application_Unlock->Desbloqueiaoacessodeoutraspá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ênciadosdadosarmazenados.
Abaixo,umexemplodecomosaberonúmerodevisitantestotaisdositeeonúmerode
visitantesnositenopresentemomento.

<SCRIPTLANGUAGE=VBSCRIPTRUNAT=SERVER>
SubApplication_OnStart
Application("Totalvisitas")=0
Application("datainicial")=now
Application("Visitasatuais")=0
Endsub
SubApplication_OnEnd
Endsub
SubSession_OnStart
Application.Lock
Application("Totalvisitas")=Application("Totalvisitas")+1
Application("Visitasatuais")=Application("Visitasatuais")+1
Application.Unlock
Endsub
SubSession_OnEnd
Application.Lock
Application("Visitasatuais")=Application("Visitasatuais")-1
Application.Unlock
Endsub
</SCRIPT>

ApostilaASP 14de43

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

abaixo,códigoparaexibiressesvalores.

<HTML><header><title>Application&Session</title></header>
<body>
<%
response.write"Visitastotaisdesde"&application("datainicial")&":"&
application("Totalvisitas")
response.write"Visitantesnositenomomento:"&application("Visitasatuais")
%>
</body>
</html>

ComponenteDatabase

OcomponenteDatabaseAccesséumcomponenteusadoparaacessarbancosdedados
deacessoaleatório,taiscomoAccess,SQLServer,DBF,Oracle,...
O componente Database Access permite a consulta, inserção, alteração e exclusão de
dadosnosbancosdedados.Taisoperaçõessão,geralmente,feitasatravésdecomandos
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étodosmaisutilizadosestãocitadosnestedocumento.

sintaxe:

conexãocomocomponente:SetConn=Server.CreateObject("ADODB.Connection")
aberturadeumbancodedadosjáexistente:Conn.Open"nomedaligaçãoODBCou
pathdoBD","UserID","Senha"
execuçãodecomandosSQL:SetrsQuery=Conn.Execute("stringSQL")
ummodoalternativodeseabrirumbancodedadosparagravação:
SetRS=Server.CreateObject("ADODB.RecordSet")
RS.Open"tabela",Conn,adOpenKeyset,adLockOptimistic
ParaofuncionamentocorretodocomponenteASP,oarquivoadovbs.incdeveser
incluídonocódigodapáginaquecontémocódigodemanipulaçãodobancodedados.
Abaixo,umatabelacomalgunsdoscomandosmaisusadosdessecomponente:

EOF RetornaTRUEcasooponteirotenhachegadoaofinaldoarquivo.(depoisdoúltimoregistro)
BOF RetornaTRUEcasooponteiroestejaposicionadonoiníciodoarquivo.(antesdoprimeiroregistro)
MoveFirst Posicionaoponteiroparaoiníciodobancodedados.
MoveLast Posicionaoponteironofinaldobancodedados

MoveNext Moveoponteiro1registroadiantenobancodedados.

MovePrevious Moveoponteiroparaoregistroanteriornobancodedados.

AddNew
Adicionaumnovoregistroaobancodedados.É
usadoquando,aoinvésdeusarSQL,abre-seo
bancodedadosnomodoRecordSet.

ApostilaASP 15de43

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

Update Salvaasalteraçõesfeitasnobancodedados,no
modoRecordSet.

Vejaosexemplosaseguir:

<HTML><HEAD><TITLE>Adicionandoumnovoregistroaobancodedados
cadastro</TITLE></HEAD>
<BODY>
<!--#includefile="adovbs.inc"-->
<%
'avariavelabaixo-Connstring-guardaopathfísicodobancodedadosno
servidor.poderiaarmazenar,nolugardopath,onomedaconexãoODBC,casoesta
tenhasidocriada(comoserávistonopróximoexemplo)
ConnString="DBQ=e:\aspbrasil\teste.mdb;Driver={MicrosoftAccessDriver(*.mdb)}"
SetConn=Server.CreateObject("ADODB.Connection")
SetRS=Server.CreateObject("ADODB.RecordSet")
Conn.OpenConnString,"",""
RS.Open"cadastro",Conn,adOpenKeyset,adLockOptimistic
RS.Addnew
RS("nome")="João"
'alinhaacimaatribuiovalorJoãoaocamponome,nessenovoregistro.
RS("email")="joao@aspbrasil.com.br"
'alinhaacimaatribuiovalorjoao@aspbrasil.com.braocampoemaildobancode
dados.
RS.update
'alinhaacimaconfirmaainclusãodosdados.Casoestecomandonãosejausado,o
registronãoéinserido.
RS.Close
SetConn=nothing
SetRS=nothing
%>
<p>Pronto.Foigravadooregistroacima.</p>
</BODY></HTML>
<HTML><HEAD><TITLE>Adicionandoumnovoregistroaobancodedados
cadastrousandoligaçãoODBC</TITLE></HEAD>
<BODY>
<!--#includefile="adovbs.inc"-->
<%
'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa
necessidadedealigaçãoODBCjáestarcriada).
ConnString="odbcteste"
SetConn=Server.CreateObject("ADODB.Connection")
SetRS=Server.CreateObject("ADODB.RecordSet")
Conn.OpenConnString,"",""
RS.Open"cadastro",Conn,adOpenKeyset,adLockOptimistic
RS.Addnew
RS("nome")="João"
'alinhaacimaatribuiovalorJoãoaocamponome,nessenovoregistro.
RS("email")="joao@aspbrasil.com.br"
'alinhaacimaatribuiovalorjoao@aspbrasil.com.braocampoemaildobancode
dados.
RS.update

ApostilaASP 16de43

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

'alinhaacimaconfirmaainclusãodosdados.Casoestecomandonãosejausado,o
registronãoéinserido.
RS.Close
SetConn=nothing
SetRS=nothing
%>
<p>Pronto.Foigravadooregistroacima.</p>
</BODY></HTML>
<HTML><HEAD><TITLE>FazendoumaconsultaSQLemostrandoosdadosobtidos
emumatabela</TITLE></HEAD>
<BODY>
<!--#includefile="adovbs.inc"-->
<%
'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa
necessidadedealigaçãoODBCjáestarcriada).
ConnString="odbcteste"
'avariávelabaixoguardaastringSQL,usadaparafazeraconsultanobancode
dados.Nocaso,pede-separagerarumaconsultaondeapenasosregistrosondeo
campoNOMEéigualaovalorJOÃO.
SQLstring="select*fromcadastrowherenome='joão'"
SetConn=Server.CreateObject("ADODB.Connection")
Conn.OpenConnString,"",""
SetrsQuery=Conn.Execute(SQLstring)
'alinhaacimagerouumaconsultachamadarsQuery.todososregistrosque
satisfazemaSQLstringestãoarmazenadosnestavariável.
%>
<table>
<tr><td>Nome</td><td>email</td></tr>
<%
WhilenotrsQuery.EOF
%>
<tr><td><%=rsQuery("nome").value%></td><td><%=rsQuery("email").value%></td>
</tr>
<%
rsQuery.Movenext
Wend
%>
</table>
<%
rsQuery.Close
setConn=nothing
SetrsQuery=nothing
%>
</BODY></HTML>
<HTML><HEAD><TITLE>FazendoumaalteraçãoviaSQL</TITLE></HEAD>
<BODY>
<!--#includefile="adovbs.inc"-->
<%
'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa
necessidadedealigaçãoODBCjáestarcriada).
ConnString="odbcteste"
'avariávelabaixoguardaastringSQL,usadaparafazeraatualizaçãonobancode

ApostilaASP 17de43

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

dados.Nocaso,pede-separamudaronomeeoemaildoregistrodecódigo5.
SQLstring="updatecadastrosetnome='maria'and
email='maria@aspbrasil.com.br'"
SetConn=Server.CreateObject("ADODB.Connection")
Conn.OpenConnString,"",""
SetrsQuery=Conn.Execute(SQLstring)
rsQuery.Close
SetConn=nothing
SetrsQuery=nothing
%>
<p>Arquivoalterado.</p>
</BODY></HTML>
<HTML><HEAD><TITLE>Fazendoumaexclusãoderegistrovia
SQL</TITLE></HEAD>
<BODY>
<!--#includefile="adovbs.inc"-->
<%
'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa
necessidadedealigaçãoODBCjáestarcriada).
ConnString="odbcteste"
'avariávelabaixoguardaastringSQL,usadaparafazeraexclusãodoregistrono
bancodedados.Nocaso,pede-separaexcluiro(s)registro(s)ondeocódigoé5.
Porsetratardeumnúmeroenãodeumastring,ovalordocódigo,nocaso5,não
ficaentreaspas.
SQLstring="delete*fromcadastrowherecodigo=5"
SetConn=Server.CreateObject("ADODB.Connection")
Conn.OpenConnString,"",""
SetrsQuery=Conn.Execute(SQLstring)
SetrsQuery=nothing
SetConn=nothing
%>
<p>RegistroExcluído</p>
</BODY></HTML>

ServerVariables

ServerVariableséumconjuntodevariáveisdesistema,quepodemindicardesdeoIP
remoto,protocolo,HOSTdoservidordeacessodousuário,etc.
sintaxe:

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

Abaixo,umatabelacomasprincipaisvariáveisdesseconjunto.

CONTENT_LENGTH Retornaotipodeconteúdoquefoienviadoao
servidor.

QUERY_STRING Stringquesucedeo?noendereçoURL.
REMOTE_ADDR IPdousuário

REMOTE_HOST
Nomedoservidorcorrespondenteao
REMOTE_ADDR(nomedoprovedordeacessodo
usuário)

ApostilaASP 18de43

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

 \r\n\r\n\r\n\r\n\r\nApostilaASP 14de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br\r\n\r\nabaixo,códigoparaexibiressesvalores.\r\n\r\n\r\n
Application&Session
\r\n\r\n<%\r\nresponse.write"Visitastotaisdesde"&application("datainicial")&":"&\r\napplication("Totalvisitas")\r\nresponse.write"Visitantesnositenomomento:"&application("Visitasatuais")\r\n%>\r\n\r\n\r\n\r\n\r\n\r\n\r\nComponenteDatabase\r\n\r\n\r\nOcomponenteDatabaseAccesséumcomponenteusadoparaacessarbancosdedados\r\ndeacessoaleatório,taiscomoAccess,SQLServer,DBF,Oracle,...\r\nO componente Database Access permite a consulta, inserção, alteração e exclusão de\r\ndadosnosbancosdedados.Taisoperaçõessão,geralmente,feitasatravésdecomandos\r\nSQL (Structured Query Language), a qual será exemplificada mais abaixo.\r\nEste tutorial não contém todos os comandos e possibilidades de uso do componente\r\nDatabase Access, uma vez que este é muito grande e complexo, mas os comandos e\r\nmétodosmaisutilizadosestãocitadosnestedocumento.\r\n\r\n\r\nsintaxe:\r\n\r\n\r\nconexãocomocomponente:SetConn=Server.CreateObject("ADODB.Connection")\r\naberturadeumbancodedadosjáexistente:Conn.Open"nomedaligaçãoODBCou\r\npathdoBD","UserID","Senha"\r\nexecuçãodecomandosSQL:SetrsQuery=Conn.Execute("stringSQL")\r\nummodoalternativodeseabrirumbancodedadosparagravação:\r\nSetRS=Server.CreateObject("ADODB.RecordSet")\r\nRS.Open"tabela",Conn,adOpenKeyset,adLockOptimistic\r\nParaofuncionamentocorretodocomponenteASP,oarquivoadovbs.incdeveser\r\nincluídonocódigodapáginaquecontémocódigodemanipulaçãodobancodedados.\r\nAbaixo,umatabelacomalgunsdoscomandosmaisusadosdessecomponente:\r\n\r\n\r\nEOF RetornaTRUEcasooponteirotenhachegadoaofinaldoarquivo.(depoisdoúltimoregistro)\r\nBOF RetornaTRUEcasooponteiroestejaposicionadonoiníciodoarquivo.(antesdoprimeiroregistro)\r\nMoveFirst Posicionaoponteiroparaoiníciodobancodedados.\r\nMoveLast Posicionaoponteironofinaldobancodedados\r\n\r\nMoveNext Moveoponteiro1registroadiantenobancodedados.\r\n\r\nMovePrevious Moveoponteiroparaoregistroanteriornobancodedados.\r\n\r\nAddNew\r\nAdicionaumnovoregistroaobancodedados.É\r\nusadoquando,aoinvésdeusarSQL,abre-seo\r\nbancodedadosnomodoRecordSet.\r\n\r\n\r\n\r\nApostilaASP 15de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br\r\n\r\nUpdate Salvaasalteraçõesfeitasnobancodedados,no\r\nmodoRecordSet.\r\n\r\n\r\n\r\nVejaosexemplosaseguir:\r\n\r\n\r\nAdicionandoumnovoregistroaobancodedados\r\ncadastro\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaopathfísicodobancodedadosno\r\nservidor.poderiaarmazenar,nolugardopath,onomedaconexãoODBC,casoesta\r\ntenhasidocriada(comoserávistonopróximoexemplo)\r\nConnString="DBQ=e:\\aspbrasil\\teste.mdb;Driver={MicrosoftAccessDriver(*.mdb)}"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nSetRS=Server.CreateObject("ADODB.RecordSet")\r\nConn.OpenConnString,"",""\r\nRS.Open"cadastro",Conn,adOpenKeyset,adLockOptimistic\r\nRS.Addnew\r\nRS("nome")="João"\r\n'alinhaacimaatribuiovalorJoãoaocamponome,nessenovoregistro.\r\nRS("email")="joao@aspbrasil.com.br"\r\n'alinhaacimaatribuiovalorjoao@aspbrasil.com.braocampoemaildobancode\r\ndados.\r\nRS.update\r\n'alinhaacimaconfirmaainclusãodosdados.Casoestecomandonãosejausado,o\r\nregistronãoéinserido.\r\nRS.Close\r\nSetConn=nothing\r\nSetRS=nothing\r\n%>\r\n

Pronto.Foigravadooregistroacima.

\r\n\r\nAdicionandoumnovoregistroaobancodedados\r\ncadastrousandoligaçãoODBC\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa\r\nnecessidadedealigaçãoODBCjáestarcriada).\r\nConnString="odbcteste"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nSetRS=Server.CreateObject("ADODB.RecordSet")\r\nConn.OpenConnString,"",""\r\nRS.Open"cadastro",Conn,adOpenKeyset,adLockOptimistic\r\nRS.Addnew\r\nRS("nome")="João"\r\n'alinhaacimaatribuiovalorJoãoaocamponome,nessenovoregistro.\r\nRS("email")="joao@aspbrasil.com.br"\r\n'alinhaacimaatribuiovalorjoao@aspbrasil.com.braocampoemaildobancode\r\ndados.\r\nRS.update\r\n\r\n\r\n\r\nApostilaASP 16de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br\r\n\r\n'alinhaacimaconfirmaainclusãodosdados.Casoestecomandonãosejausado,o\r\nregistronãoéinserido.\r\nRS.Close\r\nSetConn=nothing\r\nSetRS=nothing\r\n%>\r\n

Pronto.Foigravadooregistroacima.

\r\n\r\nFazendoumaconsultaSQLemostrandoosdadosobtidos\r\nemumatabela\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa\r\nnecessidadedealigaçãoODBCjáestarcriada).\r\nConnString="odbcteste"\r\n'avariávelabaixoguardaastringSQL,usadaparafazeraconsultanobancode\r\ndados.Nocaso,pede-separagerarumaconsultaondeapenasosregistrosondeo\r\ncampoNOMEéigualaovalorJOÃO.\r\nSQLstring="select*fromcadastrowherenome='joão'"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nConn.OpenConnString,"",""\r\nSetrsQuery=Conn.Execute(SQLstring)\r\n'alinhaacimagerouumaconsultachamadarsQuery.todososregistrosque\r\nsatisfazemaSQLstringestãoarmazenadosnestavariável.\r\n%>\r\n\r\n\r\n<%\r\nWhilenotrsQuery.EOF\r\n%>\r\n\r\n\r\n<%\r\nrsQuery.Movenext\r\nWend\r\n%>\r\n
Nomeemail
<%=rsQuery("nome").value%><%=rsQuery("email").value%>
\r\n<%\r\nrsQuery.Close\r\nsetConn=nothing\r\nSetrsQuery=nothing\r\n%>\r\n\r\nFazendoumaalteraçãoviaSQL\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa\r\nnecessidadedealigaçãoODBCjáestarcriada).\r\nConnString="odbcteste"\r\n'avariávelabaixoguardaastringSQL,usadaparafazeraatualizaçãonobancode\r\n\r\n\r\n\r\nApostilaASP 17de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br\r\n\r\ndados.Nocaso,pede-separamudaronomeeoemaildoregistrodecódigo5.\r\nSQLstring="updatecadastrosetnome='maria'and\r\nemail='maria@aspbrasil.com.br'"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nConn.OpenConnString,"",""\r\nSetrsQuery=Conn.Execute(SQLstring)\r\nrsQuery.Close\r\nSetConn=nothing\r\nSetrsQuery=nothing\r\n%>\r\n

Arquivoalterado.

\r\n\r\nFazendoumaexclusãoderegistrovia\r\nSQL\r\n\r\n\r\n<%\r\n'avariavelabaixo-Connstring-guardaonomedaconexãoODBC(háa\r\nnecessidadedealigaçãoODBCjáestarcriada).\r\nConnString="odbcteste"\r\n'avariávelabaixoguardaastringSQL,usadaparafazeraexclusãodoregistrono\r\nbancodedados.Nocaso,pede-separaexcluiro(s)registro(s)ondeocódigoé5.\r\nPorsetratardeumnúmeroenãodeumastring,ovalordocódigo,nocaso5,não\r\nficaentreaspas.\r\nSQLstring="delete*fromcadastrowherecodigo=5"\r\nSetConn=Server.CreateObject("ADODB.Connection")\r\nConn.OpenConnString,"",""\r\nSetrsQuery=Conn.Execute(SQLstring)\r\nSetrsQuery=nothing\r\nSetConn=nothing\r\n%>\r\n

RegistroExcluído

\r\n\r\n\r\n\r\nServerVariables\r\n\r\n\r\nServerVariableséumconjuntodevariáveisdesistema,quepodemindicardesdeoIP\r\nremoto,protocolo,HOSTdoservidordeacessodousuário,etc.\r\nsintaxe:\r\n\r\n\r\nvalor=Request.ServerVariables("variável")\r\n\r\n\r\nAbaixo,umatabelacomasprincipaisvariáveisdesseconjunto.\r\n\r\n\r\nCONTENT_LENGTH Retornaotipodeconteúdoquefoienviadoao\r\nservidor.\r\n\r\nQUERY_STRING Stringquesucedeo?noendereçoURL.\r\nREMOTE_ADDR IPdousuário\r\n\r\nREMOTE_HOST\r\nNomedoservidorcorrespondenteao\r\nREMOTE_ADDR(nomedoprovedordeacessodo\r\nusuário)\r\n\r\n\r\n\r\nApostilaASP 18de43\r\n\r\nApostilaseTutotriais:http://Apostilas.Fok.com.br","PreviewHtmlContent":null,"FilePreviewUrlBaseUrl":"https://files.passeidireto.com","Comments":[],"RatingValue":0,"RatingCount":0,"IsMetaDescriptionWithPage":true,"AuthorId":895642,"HasBeenReported":false,"FilePreview":{"Id":273539,"FileId":977057,"FolderUrl":"4867914e-b45f-4214-a221-54c2bf94ce42","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":6522,"FollowerCount":91191,"Followers":[{"Id":38124317,"Name":"Jeremias","ImageUrl":"https://graph.facebook.com/1492118404242103/picture?width=120&height=120","FacebookId":"1492118404242103","Active":true,"UniversityName":"UFPA","CourseName":"Engenharia da Computação"},{"Id":38123909,"Name":"Isabelle","ImageUrl":"https://lh3.googleusercontent.com/-n29rP-Eq-Ck/AAAAAAAAAAI/AAAAAAAAAJM/LZ9TmTofvE4/s96-c/photo.jpg?sz=120","FacebookId":"-38123909","Active":true,"UniversityName":"UFERSA","CourseName":"Ciência da Computação"},{"Id":38123733,"Name":"jhonatan","ImageUrl":"https://lh3.googleusercontent.com/-nYdK76IC0Hs/AAAAAAAAAAI/AAAAAAAAACE/VFyfau2hmLA/s96-c/photo.jpg?sz=120","FacebookId":"-38123733","Active":true,"UniversityName":"UNOPAR","CourseName":"Licenciatura em Computação (Informática)"},{"Id":38123712,"Name":"Hiago","ImageUrl":"https://graph.facebook.com/1529067820515917/picture?width=120&height=120","FacebookId":"1529067820515917","Active":true,"UniversityName":"IFBAIANO","CourseName":"Sistemas de Informação / Informática"},{"Id":38122860,"Name":"Gabriel","ImageUrl":"https://graph.facebook.com/2112677448966256/picture?width=120&height=120","FacebookId":"2112677448966256","Active":true,"UniversityName":"ESTÁCIO","CourseName":"Gestão da Informação"}],"LastVisitDate":null,"NewAddedMaterialCount":0},"AuthorImageUrl":"https://graph.facebook.com/100001941047034/picture?width=120&height=120","FileBaseUrl":"https://www.passeidireto.com/arquivo/977057/009_vbscript-e-asp-active-server-pages","UserAgent":"Website","FileUrl":"4867914e-b45f-4214-a221-54c2bf94ce42","HasThumbnail":1,"Contents":{"Tbs":[],"PremiumContent":[]},"title":"009 VBScript-e-ASP-Active-Server-Pages - ALGORITMOS - 4","description":"Veja grátis o arquivo 009 VBScript-e-ASP-Active-Server-Pages enviado para a disciplina de ALGORITMOS Categoria: Anotações - 4 - 977057","userAgent":"Website","HasFlashSale":false,"endDateFlashSales":null,"pdCountData":{"studentCount":10012605}}; 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/977057/009_vbscript-e-asp-active-server-pages/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":10012605};