Função ASP prática para conectar ao banco de dados

Desenvolvedores cuidadosos às vezes pensam que quando incluímos código como

<!-- #include file="conn.asp" -->

, na verdade, quando você não realiza nenhuma leitura ou gravação Durante as operações do banco de dados, a conexão com o banco de dados ainda está aberta e ainda consome recursos do servidor.

Então, existe alguma maneira de abrirmos a conexão com o banco de dados apenas quando o banco de dados precisar ser lido e não haverá ação quando ele não for lido. Essa ideia é fornecida abaixo para inspirar outras pessoas.

Essa ideia é encapsular o código de conexão do banco de dados em uma função e chamar essa função quando a leitura for necessária.

A seguir está o código de conexão SQL:

Função Open_conn()
dim Conn,Strconn
definir Conn=server.createobject("adodb.connection")
Strconn = "Provedor = Sqloledb; ID do usuário = conta de login do banco de dados; Senha = senha de login do banco de dados; Catálogo inicial = nome do banco de dados; Fonte de dados = (local);"
Conn.abrir Strconn
definir Open_conn=Conn
Se errar então
err.Limpar
Conn.close:set Conn=nada
Response.Write "Desculpe, erro de conexão com o banco de dados."
Resposta.Fim
Terminar se

da função final

:
Altere o

rs.open sql, conn

para

rs.open sql, Open_conn().

A seguir está o código de conexão ACCESS:

Função Open_conn().
dim Dbpath,Conn
Dbpath=server.MapPath("caminho do banco de dados")
definir Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
definir Open_conn=Conn
Se errar então
err.Limpar
Conn.close:set Conn=nada
Response.Write "Desculpe, erro de conexão com o banco de dados."
Resposta.Fim
Terminar se

da função final

:
substitua o original
rs.open sql, conexão

alterada para
rs.open sql, Open_conn()

a propósito, fornece um código antigo que pode compartilhar o banco de dados ACCESS entre sites no mesmo servidor. Talvez alguns amigos possam usá-lo:

às vezes, temos muitos nomes de domínio de segundo nível e podemos precisar. para permitir que esses nomes de domínio de segundo nível chamem um determinado banco de dados ACCESS, se você não quiser usar um banco de dados SQL, os seguintes métodos podem ser usados ​​para conexão com o banco de dados. (Observação especial: se o seu servidor tiver permissões de segurança FSO, você precisará definir esse diretório de banco de dados para permitir que os usuários IIS de cada estação que você precisa chamar tenham acesso e modificação.)

O seguinte caminho físico para o banco de dados é semelhante a E: Diretório Diretórionome do banco de dados

dim Conn, Strconn
Definir Conexão = Server.CreateObject("ADODB.Connection")
Strconn="Provedor = Microsoft.Jet.OLEDB.4.0; "
Strconn=Strconn & "Fonte de dados=Caminho físico do banco de dados"
Conn.Open Strconn
Se errar então
err.Limpar
Conn.close:set Conn=nada
Response.Write "Desculpe, erro de conexão com o banco de dados."
Resposta.Fim
Terminar se