Quando usamos o componente ADO integrado do ASP para programação de banco de dados, geralmente abrimos uma conexão no início do script e a fechamos no final do script. Porém, para scripts maiores, na maioria dos casos o tempo de abertura da conexão é maior que. isso. Demora muito mais para abrir. Portanto, para economizar recursos do servidor, a conexão deve ser fechada o máximo possível para liberar os recursos ocupados pela conexão. Essa técnica de fechar a conexão do conjunto de registros sem fechar o conjunto de registros é chamada de conjunto de registros desconectado, e o próprio conjunto de registros é chamado de conjunto de registros desconectado.
Abaixo usaremos um exemplo para ilustrar o uso desta tecnologia (NorthWind.mdb é um banco de dados que vem com o Microsoft Access97, e o arquivo adovbs.inc pode ser encontrado em C:/Program Files/Common Files/System/ADO):
Copie o código do código da seguinte forma:
<% @LANGUAGE = VBScript%>
<!--#include arquivo=adovbs.inc-->
<%
Resposta.Expira = 0
Dim Cnn, objRS, strOut, strQ, strC
StrC= Driver={Driver do Microsoft Access (*.mdb)}; DBQ= & Server.MapPath(/asp24) & /NorthWind.mdb;
'Estabelecer conexão
Definir Cnn = Server.CreateObject(ADODB.Connection)
Cnn.OpenStrC
'Criar objeto Recordset
Definir objRS = Server.CreateObject(ADODB.Recordset)
objRS.CursorLocation =adUseClient
objRS.CursorType = adOpenStatic
objRS.LockType = adLockOptimistic
strQ = SELECIONE ID da operadora, nome da empresa, telefone DA operadora
objRS.Open strQ, Cnn, , , adCmdText
Set objRS.ActiveConnection = Nothing 'Desconecta o conjunto de registros
Cnn.Close 'Fecha a conexão
Definir Cnn = Nada
Resposta.Write <HTML><BODY>
'Use o conjunto de registros quebrado abaixo
Faça enquanto (não objRS.EOF)
strOut = objRS(ID do remetente) & , & objRS(nome da empresa) & , & objRS(número de telefone)
Response.Write Server.HTMLEncode(strOut) & <BR>
objRS.MoveNext
Laço
Response.Write <BR>Prepare para adicionar ou inserir registros:
'Se você precisar atualizar o banco de dados, você precisa restabelecer a conexão
Definir Cnn = Server.CreateObject(ADODB.Connection)
Cnn.Open strC
Definir objRS.ActiveConnection = Cnn
objRS.Filter = Nome da Empresa = 'Wu Feng'
Se objRS.EOF Então
objRS.AddNew
objRS(nome da empresa) = Wu Feng
objRS(telefone) = 571-7227298
objRS.Atualização
Response.Write Se o registro que atende a esta condição não existir, adicione-o.<BR>
Outro
objRS(telefone) = 571-7227071
Response.Write Se existir um registro que corresponda a esta condição, Update.<BR>
objRS.Atualização
Terminar se
Definir objRS.ActiveConnection = Nada
Cnn.fechar
Definir Cnn = Nada
objRS.Fechar
Definir objRS = Nada
Resposta.Escrever </BODY></HTML>
%>