<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Datenbankoperationsklasse
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Name: Class_DBPerate
'Version: 0.2
'Autor: qihangnet
'Aktualisierung: 14. Juni 2005
'Funktion: Vereinfachen Sie den Prozess von Datenbankoperationen
'Autorisierung: Kostenlose Nutzung
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Klasse Class_DBOperate
'************ * **************************
'Variablendefinition
'***********************************
'Conn ---------- Datenbankverbindungsobjekt
'Conn_Str ------ Datenbankverbindungszeichenfolge
Private Conn,Conn_Str
'************************************** ** ***
'Instanzinitialisierung/-beendigung
'***********************************
Private Sub Class_Initialize()
Setze Conn = Server.CreateObject("ADODB.Connection")
End Sub
Private Sub Class_Teriminate()
SetConn=Nichts
End Sub
'***********************************
'Eigentum
'***********************************
'Datenbankverbindungszeichenfolge ausgeben
'Rückgabewerttyp: string
Eigenschaft Get ConnectString
ConnectString = Conn_Str
End-Eigenschaft
'Datenbankverbindungszeichenfolge festlegen (Datenbankverbindungszeichenfolge)
' Parameter: str --- string
Eigenschaft Let ConnectString(str)
Conn_Str = str
End-Eigenschaft
'***********************************
'Ereignis
'***********************************
'Datenbank wird geöffnet
Öffentlicher Sub DB_Open() .
Conn.ConnectionString = Conn_Str
Verbindung offen
End Sub
'Datenbank ist geschlossen
Öffentlicher Sub DB_Close()
Verbind.Schließen
End Sub
'***********************************
'Verfahren
'***********************************
'Datenbankabfrage (SQL-Anweisung)
'Parameter und Kategorien: sql ---- string
'Rückgabewerttyp: Recordset
' Voraussetzung: Der Datenbankstatus ist offen.
Öffentliche Funktion DB_Select(sql)
Setze DB_Select = Conn.Execute(sql)
Endfunktion
'Datenbankausführung (SQL-Anweisung)
'Parameter und Kategorien: sql ---- string
'Rückgabewerttyp: Ganzzahl
'Rückgabewertbedeutung: Anzahl der betroffenen Zeilen
' Voraussetzung: Der Datenbankstatus ist offen.
Öffentliche Funktion DB_Excute(sql)
Dimmen Sie rs_affected
Conn.Execute sql,rs_affected
DB_Excute = rs_affected
Endfunktion
Endklasse
%>