Kapseln Sie den Datenbankverbindungscode in einer Funktion und rufen Sie diese Funktion auf, wenn ein Lesen erforderlich ist. Das Folgende ist der SQL-Verbindungscode:
Kopieren Sie den Codecode wie folgt:
Funktion Open_conn()
dim Conn,Strconn
set Conn=server.createobject(adodb.connection)
Strconn = Provider = Sqloledb; Benutzer-ID = Datenbank-Login-Passwort = Datenbank-Login-Passwort = Datenbankname;
Conn.open Strconn
setze Open_conn=Conn
Wenn Sie sich irren, dann
ähm.Klar
Conn.close:set Conn=nothing
Response.Write Entschuldigung, Datenbankverbindungsfehler.
Antwort.Ende
Ende wenn
Funktion beenden
Aufrufmethode:
Ersetzen Sie das Original
Kopieren Sie den Codecode wie folgt:
rs.open sql,conn
Wechseln zu
Kopieren Sie den Codecode wie folgt:
rs.open sql,Open_conn()
Das Folgende ist der ACCESS-Verbindungscode:
Kopieren Sie den Codecode wie folgt:
Funktion Open_conn()
dim Dbpath,Conn
Dbpath=server.MapPath (Datenbankpfad)
set Conn=server.createObject(ADODB.connection)
Conn.open data source=&dbpath&;provider=microsoft.Jet.OLEDB.4.0;
setze Open_conn=Conn
Wenn Sie sich irren, dann
ähm.Klar
Conn.close:set Conn=nothing
Response.Write Entschuldigung, Datenbankverbindungsfehler.
Antwort.Ende
Ende wenn
Funktion beenden
Aufrufmethode:
Ersetzen Sie das Original
Kopieren Sie den Codecode wie folgt:
rs.open sql,conn
Wechseln zu
Kopieren Sie den Codecode wie folgt:
rs.open sql,Open_conn()