Empfohlen: ASP -Vorlagencode Klassenvorlage private m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr privat m_valuelist, m_blocklist privat m_regexp private sub class_initialize set m_valuelist = createObject (script.Dictionary) set m_blocklist = creatobject (scriptObject (scriptObjection
Beim Schreiben eines ASP -Datenbankprogramms verwenden wir normalerweise SQL -Anweisungen. Wenn wir Daten hinzufügen und aktualisieren, verwenden wir normalerweise die folgende Methode: In die Nachricht einfügen (Incept, Absender, Titel, Inhalt, SendTime, Flag, ISSD) ('& Incept (i) &', '& Mitgliedname &', '& Titel &', ', Messing (). Fehler ändern und finden. Nach der Verwendung dieser SQL -Klasse kann sie vereinfacht werden und es ist einfacher, Fehler zu überprüfen. Durch das Hinzufügen von Feldnamen und Feldwerten über die Funktion addfield der Klasse können Feldnamen und Feldwerte einfach in SQL -Anweisungen einfügen und dann die SQL -Anweisung zurückgeben.
Schauen wir uns den Code dieser Klasse an:
＜%
Klasse SQLString
'****************************************
'Variable Definition
'****************************************
'StablenName --- Tabellenname
'isqltype ---
'Swhere --- Bedingungen
'Sorder --- sortieren
'SSQL ---- Wert
Privat StableName, IsqlType, Swhere, SSQL
'****************************************
'Klasseninitialisierung/Ende
'****************************************
Private sub class_initialize ()
stablEname =
isqlType = 0
SWHERE =
SORTER =
ssql =
Ende sub
Private sub class_terate ()
Ende sub
'****************************************
'Eigentum
'****************************************
'Setzen Sie die Eigenschaften des Tabellennamens
Öffentliches Eigentum lassen TableName (Wert)
stableName = value
Beenden Sie Eigentum
'Setzen Sie die Bedingungen
Öffentliches Eigentum lassen, wo (Wert)
SWHERE = Wert
Beenden Sie Eigentum
'Setzen Sie die Sortiermethode
Öffentliches Eigentum lassen
SORTER = Wert
Beenden Sie Eigentum
'Setzen Sie die Art der Anweisung für Abfragen
Öffentliches Eigentum let SQLTYPE (Wert)
isqltype = Wert
Wählen Sie Fall isqlType
Fall 0
ssql = in#0 (#1) Werte (#2) einfügen
Fall 1
ssql = update #0 set #1 = #2
Fall 2
ssql = löschen aus #0
Fall 3
SSQL = SELECT #1 aus #0
Ende auswählen
Beenden Sie Eigentum
'****************************************
'Funktion
'****************************************
'Feld hinzufügen (Feldname, Feldwert)
Öffentliches Sub -Addfield (SfieldName, SValue)
Wählen Sie Fall isqlType
Fall 0
ssql = ersetzen (SSQL,#1, Sfieldname &,#1)
ssql = ersetzen (SSQL,#2, '& sfieldname &',#2)
Fall 1
ssql = ersetzen (SSQL,#1, sfieldname)
ssql = ersetzen (SSQL,#2, '& sfieldname &',#1 =#2)
Fall 3
ssql = ersetzen (SSQL,#1, Sfieldname &,#1)
Ende auswählen
Ende sub
'Return SQL Anweisung
Öffentliche Funktion returnSQL ()
SSQL = Ersetzen (SSQL,#0, Stablename)
Wählen Sie Fall isqlType
Fall 0
ssql = ersetzen (SSQL ,,#1,)
ssql = ersetzen (ssql ,,#2,)
Fall 1
ssql = ersetzen (ssql ,,#1 =#2,)
Fall 3
ssql = ersetzen (SSQL ,,#1,)
Ende auswählen
Wenn schwhere ＜＞ dann
SSQL = SSQL & WO & SWHERE
Ende wenn
Wenn Sorder ＜＞ dann
ssql = ssql & order by & sorder
Ende wenn
ReturnSQL = ssql
Endfunktion
'Klare Aussage
Öffentlicher Sub Clear ()
stablEname =
isqlType = 0
SWHERE =
SORTER =
ssql =
Ende sub
Endklasse
%＞
Wie man verwendet:
Beispiel: In die Nachricht (Incept, Absender, Titel, Inhalt, SendTime, Flag, ISSend) Werte ('& Incept (i) &', '& Mitgliedsame &', '& title &', '& Message &', Now (), 0,1) einfügen (I).
Setzen Sie a = new SQLString 'Klassenobjekt erstellen
A.TableName = Message 'Stellen Sie den Tabellennamen als Nachricht fest
A.SQLTYPE = 0 'Legen Sie den Abfragetyp fest, um den Datensatz hinzuzufügen
A.Addfield Incept, Incept (i)
A.Addfield Sender, Mitgliedsame
A.Addfield Titel, Mitgliedsame
A.Addfield Sender, Titel
A.Addfield Inhalt, Nachricht
A.Addfield SendTime, sendTime ()
A.Addfield Flag, 0
A.Addfield Issend, 1
Antwort.Write A.Returnsql
Setzen Sie a = nichts
Aktien: Kalenderprogramm von ASP produziert Ein reines ASP-Calendar-Programm kann von sich selbst verschönert, und hier ist nur der einfachste CSS-Stil erhältlich. . . Style Body {Schriftgröße: 12px; Rand: 20px 0 0 20px; Polsterung: 0} tr, td {text-align: center;} /style % "============================================================================================================ =============================================================================== =============================================================================== ===============================================================================