Una gran parte del programa de aprendizaje requiere operaciones de conexión con la base de datos. Aquí hay un breve resumen de algunos códigos para el acceso a la conexión asp para comodidad de los amigos que lo necesitan. 1. En comparación con entornos más antiguos, se recomienda utilizar el segundo.
establecer dbconnection=Server.CRATEEOBJECT(ADODB.CONNECTION)
DBPath = Servidor.MapPath(cliente.mdb)
dbconnection.Open driver={Controlador de Microsoft Access (*.mdb)};dbq= & DBPath
SQL=seleccione * de autenticación donde id=' & user_id &'
SET lista ascendente=dbconnection.EXECUTE(SQL)
2. Para máquinas con win2003 o superior, se recomienda utilizar este método, que es más eficiente.
establecer dbconnection=Server.CreateObject(ADODB.Conexión)
DBPath = Servidor.MapPath(cliente.mdb)
dbconnection.Open proveedor=microsoft.jet.oledb.4.0;fuente de datos=&dbpath
SQL=seleccione * de autenticación donde id=' & user_id &'
SET lista ascendente=dbconnection.EXECUTE(SQL)
3.
DBPath = Servidor.MapPath(cliente.mdb)
establecer sesión(rs)=Server.CreateObject(ADODB.Recordset)
'rs=Servidor.CreateObject(ADODB.Recordset)
connstr=proveedor=microsoft.jet.oledb.4.0;fuente de datos=&dbpath
SQL=seleccione * de autenticación donde id=' & user_id &'
sesión(rs).Abrir sql,connstr,1,3
4.
Construir fuente odbc xxx
establecer conexión=servidor.createobject(Adodb.conexión)
conn.open DSN=xxx;UID=;PWD=;Base de datos=cliente
5. Se adjunta un código de conexión de base de datos de uso común para sqlserver y acceso.
Copie el código de código de la siguiente manera:
<%
Tipo de base de datos constante=1
Si DataBaseType = 0 entonces
DBPath=/jb51/noticias.asp
SqlNowString = Ahora()
ystr=verdadero
nstr=falso
suiji=rnd(id)
Demás
'Si es una base de datos SQL, modifique cuidadosamente las siguientes opciones de la base de datos
DataServer = wwwjb51net 'IP del servidor de base de datos
DataUser = jb51net 'Nombre de usuario de base de datos de acceso
DataBaseName = jb51net 'Nombre de la base de datos
DataBasePsw = Contraseña'Contraseña de acceso a la base de datos
SqlNowString = obtener fecha()
ystra=1
nstr=0
suiji=nuevoid()
terminar si
En caso de error Continuar siguiente
Si tipo de base de datos = 1 entonces
ConnStr=driver={SQL Server};server=&dataserver&;UID=&datauser&;PWD=&databasepsw&;Database=&databasename
Demás
ConnStr = Proveedor = Microsoft.Jet.OLEDB.4.0; Fuente de datos = & Server.MapPath (DBPath)
Terminar si
Establecer conexión = Server.CreateObject(ADODB.Connection)
conn.open ConnStr
Si Err Then Err.Clear:Set conn = Nothing:Response.Write Error de conexión de la base de datos, verifique la configuración de los parámetros de la base de datos en el archivo Conn.asp. :Respuesta.Fin
%>