De hecho, lo que más preocupa a todos al escribir un programa ASP es que algunas personas vean la información de conexión de la base de datos y causen algún daño. A continuación usamos vb6.0 para crear una biblioteca de enlaces dinámicos (.dll) para ocultar la información de conexión de la base de datos.
Inicie vb6.0, cree uno nuevo --> Proyecto dll activo. Haga clic en "Proyecto"-->Referencias y seleccione "Biblioteca de objetos de páginas de Microsoft Active Server"
y "Biblioteca de objetos de datos Microsoft ActiveX 2.1", dos elementos. Cambie el nombre del módulo de clase a dcss. Cambie el nombre del proyecto a yygwy. Guarde el archivo del proyecto yygwy.vbp y el archivo de clase dcss.cls.
Escribe en dcss.cls:
myscriptingcontext privado como ScriptingContext
Mi aplicación privada como aplicación
Myrequest privado como solicitud
Mi respuesta privada como respuesta
Myserver privado como servidor
Mi sesión privada como
subsesión pública en la página de inicio (se pasa el contexto de scripting como contexto de scripting)
Establecer myscriptingcontext = passadoscriptingcontext
Establecer mi aplicación = myscriptingcontext.Application
Establecer mi solicitud = myscriptingcontext.Request
Establecer mirespuesta = myscriptingcontext.Response
Establecer miservidor = myscriptingcontext.Server
Establecer mi sesión = myscriptingcontext.Session
End Sub
Public Sub onendpage()
Establecer myscriptingcontext = Nada
Establecer mi aplicación = Nada
Establecer mi solicitud = Nada
Establecer mi respuesta = Nada
Establecer mi servidor = Nada
Establecer mi sesión = Nada
End Sub
'La declaración anterior es obligatoria.
'Definir dos funciones públicas
Fuente de datos de función pública() como variante
fuente de datos = "controlador={servidor sql};servidor=yang;uid=sa;pwd=; base de datos=dcss"
La función final
compila y genera el archivo dcss.dll. Registre la ruta regsvr32dcss.dll.
Abra el archivo global.asa con visual interdev. Por supuesto, también puede usarlo en otros archivos.
establecer dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.fuente de datos()
application("strconn")=oconn
se puede llamar de la siguiente manera en otras páginas:
establecer objConn = Server.CreateObject("ADODB.Connection")
objConn.Abrir aplicación ("strconn")