Une grande partie du programme d'apprentissage nécessite des opérations de connexion avec la base de données. Voici un bref résumé de quelques codes d'accès à la connexion asp pour la commodité des amis qui en ont besoin 1. Par rapport aux environnements plus anciens, il est recommandé d'utiliser le second.
définir dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath (client.mdb)
dbconnection.Open driver={Pilote Microsoft Access (*.mdb)};dbq= & DBPath
SQL=select * from auth où id=' & user_id &'
SET uplist=dbconnection.EXECUTE(SQL)
2. Pour les machines équipées de win2003 ou supérieur, il est recommandé d'utiliser cette méthode, qui est plus efficace.
définir dbconnection=Server.CreateObject(ADODB.Connection)
DBPath = Server.MapPath (client.mdb)
dbconnection.Open supplier=microsoft.jet.oledb.4.0;source de données=&dbpath
SQL=select * from auth où id=' & user_id &'
SET uplist=dbconnection.EXECUTE(SQL)
3.
DBPath = Server.MapPath (client.mdb)
set session(rs)=Server.CreateObject(ADODB.Recordset)
'rs=Serveur.CreateObject(ADODB.Recordset)
connstr=provider=microsoft.jet.oledb.4.0;source de données=&dbpath
SQL=select * from auth où id=' & user_id &'
session(rs).Open sql,connstr,1,3
4.
Construire la source odbc xxx
set conn=server.createobject(Adodb.connection)
conn.open DSN=xxx;UID=;PWD=;Base de données=client
5. Vous trouverez ci-joint un code de connexion à la base de données couramment utilisé pour sqlserver et l'accès.
Copiez le code comme suit :
<%
Const DataBaseType = 1
Si DataBaseType=0 alors
DBPath=/jb51/news.asp
SqlNowString = Maintenant()
ystr=vrai
nstr=faux
suiji=rnd(id)
Autre
'S'il s'agit d'une base de données SQL, veuillez modifier soigneusement les options de base de données suivantes
DataServer = wwwjb51net 'IP du serveur de base de données
DataUser = jb51net 'Nom d'utilisateur de la base de données Access
DataBaseName = jb51net 'Nom de la base de données
DataBasePsw = Mot de passe de la base de données Password'Access
SqlNowString = getdate()
ystr=1
nstr=0
suiji=newid()
Terminer si
En cas d'erreur, reprendre ensuite
Si DataBaseType = 1 Alors
ConnStr=driver={SQL Server};server=&dataserver&;UID=&datauser&;PWD=&databasepsw&;Database=&databasename
Autre
ConnStr = Provider=Microsoft.Jet.OLEDB.4.0;Source de données= & Server.MapPath(DBPath)
Fin si
Définir conn = Server.CreateObject (ADODB.Connection)
conn.open ConnStr
Si Err Then Err.Clear:Set conn = Nothing:Response.Write Erreur de connexion à la base de données, veuillez vérifier les paramètres de la base de données dans le fichier Conn.asp. :Réponse.Fin
%>