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
Sesión privada Como sesión
Public Sub en la página de inicio (pasado scriptingcontext como ScriptingContext)
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
Función pública rsresult(strsql como cadena) como conjunto de registros
Dim mycnn como conexión
Atenuar myset como conjunto de registros
Dim strconnstring como cadena
'strconnstring = "proveedor=sqloledb.1;
contraseña=;" & "id de usuario=sa;" & "catálogo inicial=vlog;" & "fuente de datos=hpe60;
tiempo de espera de conexión = 15"
strconnstring = "driver={servidor sql};servidor=yang;uid=sa;pwd=;
base de datos=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Abrir strconnstring
myset.ActiveConnection = mycnn
myset.Abrir strsql, mycnn, 3, adCmdText
Establecer rsresult = miconjunto
Función final
Función pública fuente de datos () 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")