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
Minha sessão privada como sessão
pública Sub onstartpage (passedscriptingcontext As 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 datasource() 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")