Ein großer Teil des Lernprogramms erfordert Verbindungsvorgänge mit der Datenbank. Hier finden Sie eine kurze Zusammenfassung einiger Codes für den ASP-Verbindungszugriff, damit Freunde, die ihn benötigen, die zweite verwenden können
set dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Server.MapPath(customer.mdb)
dbconnection.Open drivers={Microsoft Access Driver (*.mdb)};dbq= & DBPath
SQL=select * from auth where id=' & user_id &'
SET uplist=dbconnection.EXECUTE(SQL)
2. Für Maschinen mit Win2003 oder höher wird die Verwendung dieser effizienteren Methode empfohlen.
set dbconnection=Server.CreateObject(ADODB.Connection)
DBPath = Server.MapPath(customer.mdb)
dbconnection.Open Provider=microsoft.jet.oledb.4.0;Datenquelle=&dbpath
SQL=select * from auth where id=' & user_id &'
SET uplist=dbconnection.EXECUTE(SQL)
3.
DBPath = Server.MapPath(customer.mdb)
set session(rs)=Server.CreateObject(ADODB.Recordset)
'rs=Server.CreateObject(ADODB.Recordset)
connstr=provider=microsoft.jet.oledb.4.0;data source=&dbpath
SQL=select * from auth where id=' & user_id &'
session(rs).Open sql,connstr,1,3
4.
Erstellen Sie die Odbc-Quelle xxx
set conn=server.createobject(Adodb.connection)
conn.open DSN=xxx;UID=;PWD=;Datenbank=Kunde
5. Im Anhang finden Sie einen häufig verwendeten Datenbankverbindungscode für SQL Server und Zugriff.
Kopieren Sie den Codecode wie folgt:
<%
Const DataBaseType=1
Wenn DataBaseType=0, dann
DBPath=/jb51/news.asp
SqlNowString = Now()
ystr=wahr
nstr=false
suiji=rnd(id)
Anders
„Wenn es sich um eine SQL-Datenbank handelt, ändern Sie bitte sorgfältig die folgenden Datenbankoptionen
DataServer = wwwjb51net 'Datenbankserver-IP
DataUser = jb51net 'Benutzername für den Zugriff auf die Datenbank
DataBaseName = jb51net 'Datenbankname
DataBasePsw = Passwort'Passwort für den Zugriff auf die Datenbank
SqlNowString = getdate()
ystr=1
nstr=0
suiji=newid()
Ende wenn
Bei Fehler Weiter fortsetzen
Wenn DataBaseType = 1, dann
ConnStr=driver={SQL Server};server=&dataserver&;UID=&datauser&;PWD=&databasepsw&;Database=&databasename
Anders
ConnStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(DBPath)
Ende wenn
Setze conn = Server.CreateObject(ADODB.Connection)
conn.open ConnStr
Wenn Err Then Err.Clear:Set conn = Nothing:Response.Write Datenbankverbindungsfehler, überprüfen Sie bitte die Datenbankparametereinstellungen in der Datei Conn.asp. :Antwort.Ende
%>