Na verdade, o que mais preocupa todos ao escrever um programa ASP é que as informações de conexão do banco de dados serão vistas por algumas pessoas e causarão alguns danos. Em seguida, usamos vb6.0 para criar uma biblioteca de vínculo dinâmico (.dll) para ocultar as informações de conexão do banco de dados.
Inicie vb6.0, crie um novo -> projeto dll ativo. Clique em "Projeto" -> Referências e selecione "Biblioteca de objetos do Microsoft Active Server Pages"
e "biblioteca Microsoft ActiveX Data Objects 2.1" dois itens. Altere o nome do módulo de classe para dcss. Altere o nome do projeto para yygwy. Salve o arquivo de projeto yygwy.vbp e o arquivo de classe dcss.cls.
Escreva em dcss.cls:
Myscriptingcontext privado como ScriptingContext
Myapplication privado como aplicativo
Myrequest privado como solicitação
Minha resposta privada como resposta
Myserver privado como servidor
Sessão privada como sessão
Sub público na página inicial (passedscriptingcontext como ScriptingContext)
Definir myscriptingcontext=passscriptingcontext
Definir myapplication = myscriptingcontext.Application
Definir minha solicitação = meu scriptingcontext.Request
Definir minha resposta = myscriptingcontext.Response
Defina meuservidor = meuscriptingcontext.Server
Definir minhasessão = meuscriptingcontext.Session
Fim Sub
Público Sub onendpage()
Definir myscriptingcontext = Nada
Definir meu aplicativo = Nada
Definir minha solicitação = Nada
Definir minha resposta = Nada
Definir meuservidor = Nada
Definir minhasessão = Nada
End Sub
'A declaração acima é obrigatória.
'Define duas funções públicas
Public Function rsresult(strsql As String) As Recordset
Dim mycnn como conexão
Dim myset como conjunto de registros
Dim strconnstring como string
'strconnstring = "provider=sqloledb.1;
senha=;" & "id do usuário=sa;" & "catálogo inicial=vlog;" & "fonte de dados=hpe60;
tempo limite de conexão=15"
strconnstring = "driver={servidor sql};servidor=yang;uid=sa;pwd=;
banco de dados=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Open strconnstring
meuset.ActiveConnection = meucnn
myset.Open strsql, mycnn, 3, adCmdText
Definir rsresultado = meuconjunto
Função final
Função pública fonte de dados() como variante
fonte de dados = "driver={servidor sql};servidor=yang;uid=sa;pwd=; banco de dados=dcss"
End Function
compila e gera o arquivo dcss.dll. Registre o caminho regsvr32dcss.dll.
Abra o arquivo global.asa com visual interdev. Claro, você também pode usá-lo em outros arquivos.
definir dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn
pode ser chamado da seguinte forma em outras páginas:
definir objConn = Server.CreateObject("ADODB.Connection")
objConn.Open aplicativo("strconn")