Empfohlen: Kalenderprogramm von ASP 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 % "============================================================================================================ =============================================================================== =============================================================================== ===============================================================================
Klassenvorlage
Private m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr
Private m_valuelist, m_blocklist
Privat m_regexp
Private sub class_initialize
Setzen Sie m_valuelist = createObject (scripting.Dictionary)
Setzen Sie m_blocklist = createObject (scripting.Dictionary)
Setzen Sie m_regexp = new regexp
m_regexp.ignorecase = true
m_regexp.global = true
M_FileName =
m_root =.
M_UUNKNOWNS = REMET
m_lasterror =
M_Haltonerr = true
Ende sub
Private sub class_terate
Setzen Sie m_regexp = nichts
Setzen Sie m_blockmatches = nichts
Setzen Sie m_valuematches = nichts
Ende sub
Öffentliches Eigentum erhalten Sie Klassenname ()
ClassName = template
Beenden Sie Eigentum
Öffentliche Eigenschaften erhalten Sie Version ()
Version = 1.0
Beenden Sie Eigentum
Private Funktion LoadFile (Byval -Chartyp)
Dim Filename, FSO, HNDFILE
Dateiname = m_root
Wenn rechts (Dateiname, 1) <>/ und rechts (Dateiname, 1) <>/ dann Dateiname = Dateiname &/
Dateiname = Server.Mappath (Dateiname & M_FileName)
StreamObject = server.createObject (adodb.stream) festlegen.
StreamObject.Type = 1
StreamObject.mode = 3
StreamObject.open
StreamObject.position = 0
StreamObject.loadfromFile Dateiname
StreamObject.position = 0
StreamObject.Type = 2
StreamObject.charset = chartType
LoadFile = streamObject.readText ()
Wenn LoadFile = dann Duschror (0x11 <br> konnte die Datei & M_FileName &!) Nicht laden)
Endfunktion
Privates Unterduschenror (Byval MSG)
m_lasterror = msg
Antwort.Write <span style = Schriftgröße: 12px; Farbe: Rot> Fehler-ID: & msg & </span>
Wenn m_haltonerr.end.end
Ende sub
Public sub set_root (Byval -Wert)
m_root = Wert
Ende sub
Öffentliche Funktion get_root ()
get_root = m_root
Endfunktion
Öffentliches Eigentum lassen Sie Wurzel (Byval -Wert)
set_root (Wert)
Beenden Sie Eigentum
Öffentliches Eigentum bekommen Root ()
Root = m_root
Beenden Sie Eigentum
Public sub set_file (Byval -Handle, Byval -Dateiname, Byval Chartype)
M_FileName = Dateiname
m_blocklist.add handle, loadFile (chartype)
Ende sub
Öffentliche Funktion get_file ()
get_file = m_filename
Endfunktion
Public sub set_unkynowns (Byval Unbekannte)
M_UUNKNOWNS = Unbekannte
Ende sub
Öffentliche Funktion get_unkNowns ()
get_unkNowns = m_UunkNowns
Endfunktion
Öffentliches Eigentum Unbekannte (Byval unbekannt)
M_UUNKNOWNS = UNNAKT
Beenden Sie Eigentum
Öffentliches Eigentum bekommen Unbekannte ()
Unbekannte = M_UKNNOWNS
Beenden Sie Eigentum
Public sub set_block (Byval Eltern, Byval Blocktag, Byval -Name)
Dim Matches
m_regexp.pattern = <!-/s+starten & blocktag & /s+ -->(?/s/s. weise*)<!
Wenn nicht m_blocklist.exists (übergeordnet), dann Duschror (0x12 <br> undefined Block Tag & Parent &!)
set matches = m_regexp.execute (m_blocklist.item (übergeordnet)))
Für jedes Spiel in Spielen
m_blocklist.add blocktag, match.submatches (0)
m_blocklist.item (übergeordnet) = ersetzen (m_blocklist.item (übergeordnet), match.value, {& name &})
Nächste
Setzen Sie Matches = nichts
Ende sub
Public sub set_var (Byval -Name, Byval -Wert, Byval -Anhang)
Dim Val
Wenn isnull (Wert) dann val = else val = Wert
Wenn m_valuelist.exists (Name) dann
Wenn Sie anhängen, dann m_valuelist.item (name) = m_valuelist.Item (Name) & val _
Sonst m_valuelist.item (name) = val
Anders
m_valuelist.add Name, Wert
Ende wenn
Ende sub
Public sub unet_var (byval name)
Wenn m_valuelist.exists (Name) dann m_valuelist.remove (Name)
Ende sub
Private Funktion InstanceValue (Byval Blocktag)
Dunkelne Schlüssel, ich
InstanceValue = m_blocklist.item (blocktag)
keys = m_valuelist.keys
Für i = 0 bis m_valuelist.count-1
InstanceValue = Ersatz (InstanceValue, {& Keys (i) &}, M_valuelist.Item (Keys (i)))
Nächste
Endfunktion
Öffentlicher Unterschlag (Byval -Name, Byval Blocktag, Byval Append)
Wenn nicht m_blocklist.exists (blocktag), dann Duschror (0x12 <br> undefined Block Tag & Parent &!)
Wenn m_valuelist.exists (Name) dann
Wenn Sie anhängen, dann m_valuelist.item (name) = m_valuelist.item (name) & instanceValue (blocktag) _
Sonst m_valuelist.Item (name) = InstanceValue (Blocktag)
Anders
m_valuelist.add Name, InstanceValue (Blocktag)
Ende wenn
Ende sub
Privatfunktion Finish (Byval -Inhalt)
Wählen Sie den Fall m_UunkNOWNS
Fall halten Finish = Inhalt
Fall entfernen
m_regexp.pattern =/{[^/t/r/n}]+/}
Finish = M_REGEXP.REPLACE (Inhalt,)
Fallkommentar
m_regexp.pattern =/{([^/t/r/n}]+)/}
fund = m_regexp.replace (Inhalt, <!-Vorlagenvariable $ 1 undefiniert->)
Fall sonst beenden = Inhalt
Ende auswählen
Endfunktion
Öffentliche Unterausgabe (Byval -Name)
Wenn nicht
Antwort.Write (Finish (m_valuelist.Item (Name))))
Ende sub
Endklasse
Aktien: Verwendung von ASP -Anforderungsobjekten ASP verfügt hauptsächlich über fünf integrierte Objekte: Server, Anforderung, Antwort, Anwendung und Sitzung. Lassen Sie uns sie nun mit Beispielen erklären. Erstens ist das am häufigsten verwendete Antwortobjekt. Beispiel 1 Verwenden Sie die Antwort auf Ausgabe von HTML -Dokumenten auf Webseiten Sie können die obige Generation in FrontPage -Editor oder in Schreibvorständen, Notizbüscheln und anderen Autoren eingeben.