>Ich verwende Klassen sehr h�ufig und habe noch keine Probleme damit gehabt.
>Schick mal ein wenig Code mit. Testaufruf, Klasse usw.
Ich verwende die Klassen eigentlich auch ganz gerne, bis jetzt habe ich aber noch
keine DB-Operationen in einer Klasse gemacht.
Stimmt, etwas Code kann nicht schaden. Die letzte Version die ich testete war diese:
# --- clszvfunctions.asp
<%
Class ZVFunctions
' ******************************************************************************
' Routine: ZVFunctions
' Description: ZVFunctions Klasse
'
' Created by: Christoph Eigenseder
' Date-Time: 19.08.2002 13:23:47
' Last modification:
' ******************************************************************************
'Membervariablen
Private mobjConnZV
Private mstrDatabaseLocation
Private Sub Class_Initialize()
' ******************************************************************************
' Routine: Class_Initialize
' Description: Implizit vom IIS aufgerufene Prozedur bei Initialisierung der
Klasse
' ******************************************************************************
Dim strConnection
mstrDatabaseLocation = Server.MapPath("\") & "\db\zv.mdb"
strConnection = "data provider=Microsoft.Jet.OLEDB.4.0;data source=" &
mstrDatabaseLocation
Set mobjConnZV = Server.CreateObject("ADODB.Connection")
mobjConnZV.Provider = "MSDataShape"
Open Database
mobjConnZV.Open(strConnection)
End Sub
Private Sub Class_Terminate()
' ******************************************************************************
' Routine: Class_Terminate
' Description: Implizit vom IIS aufgerufene Prozedur bei Terminierung der Klasse
' ******************************************************************************
'Schlie�t Database Connection
'mobjConnZV.Close
'Set mobjConnZV = Nothing
End Sub
End Class
%>
# --- End clszvfunctions.asp
# --- classdebug.asp
<%
Option Explicit
%>
<!--#include virtual="/core/clszvfunctions.asp"-->
<%
Response.Expires=0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-control", "no-store"
Dim objZVFunctions
Set objZVFunctions = New ZVFunctions
Set objZVFunctions = Nothing
%>
# --- End classdebug.asp
Und das l�st den Exudus aus !!!
mfg
Christoph Eigenseder
| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
