Recommandé: programme de calendrier réalisé par ASP Un programme de calendrier créé par l'ASP peut embellir seul, et seul le style CSS le plus simple est disponible ici. . . Corps de style {taille de police: 12px; marge: 20px 0 0 20px; rembourrage: 0} tr, td {text-align: centre;} / style% '====================================================================. ====================================================================. ====================================================================. ====================================================================.
Modèle de classe
Privé m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr
M_VALUELIST PRIVÉ, M_BLOCKLIST
M_REGEXP privé
Private Sub class_inialize
SET M_VALUELIST = CREATEOBJECT (Scripting.Dictionary)
Set m_blocklist = createObject (scripting.dictionary)
définir m_regexp = new regexp
m_regexp.ignorecase = true
m_regexp.global = true
m_filename =
m_root =.
m_unknowns = supprimer
m_lasterror =
m_haltonerr = true
Sub-Sub
Sous-classe privée_terminée
Définir m_regexp = rien
Définir m_blockmatches = rien
Définir m_valumatches = rien
Sub-Sub
Propriété publique Get ClassName ()
ClassName = modèle
Propriété finale
Propriété publique Get Version ()
Version = 1.0
Propriété finale
Fonction Private LoadFile (ByVal Chartype)
Nom de fichier DIM, FSO, HNDFILE
FileName = M_ROOT
Si droit (nom de fichier, 1) <> / et droit (nom de fichier, 1) <> / puis filename = filename & /
Filename = server.mappath (filename & m_filename)
Set streamObject = server.createObject (adodb.stream)
StreamObject.type = 1
StreamObject.Mode = 3
StreamObject.open
StreamObject.position = 0
StreamObject.LoadFromFile Nom de fichier
StreamObject.position = 0
StreamObject.type = 2
StreamObject.Charset = ChartType
Loadfile = streamObject.readText ()
Si loadfile = alors doucheror (0x11 <br> n'a pas pu charger le fichier & m_filename &!)
Fonction finale
Private Sub Downror (Byval MSG)
m_lasterror = msg
Response.Write <Span Style = Font-Size: 12px; Couleur: Red> ID d'erreur: & Msg & </span>
Si m_haltonerr, alors réponse.end
Sub-Sub
Public sub set_root (valeur byval)
m_root = valeur
Sub-Sub
Fonction publique get_root ()
get_root = m_root
Fonction finale
Propriété publique Let Root (valeur Byval)
set_root (valeur)
Propriété finale
Propriété publique Get Root ()
Root = m_root
Propriété finale
Public sub set_file (manche byVal, nom de fichier ByVal, chartification ByVal)
m_filename = nom de fichier
M_BLOCKLIST.add Handle, LoadFile (Chartype)
Sub-Sub
Fonction publique get_file ()
get_file = m_filename
Fonction finale
Public sub set_unknowns (Byval inconnues)
m_unknowns = inconnues
Sub-Sub
Fonction publique get_unknowns ()
get_unknowns = m_unknowns
Fonction finale
Propriété publique Laisse les inconnues (Byval inconnu)
m_unknowns = inconnu
Propriété finale
La propriété publique obtient des inconnues ()
Inconnus = m_unknowns
Propriété finale
Public sub set_block (Byval Parent, Byval BlockTag, ByVal Name)
Matchs sombres
M_REGEXP.PATTERN = <! - / S + Begin & BlockTag & /s+-->(@/s/s.
Si ce n'est pas m_blocklist.exists (parent), alors doucheror (0x12 <br> Block UNDEFINED Block Tag & Parent &!)
SET MATCHES = M_REGEXP.EXECUTE (M_BLOCKLIST.ITEM (PARENT))
Pour chaque match dans les matchs
M_BLOCKLIST.ADD BLOCKTAG, MATCH.SUBMATCHES (0)
m_blocklist.item (parent) = remphal
Suivant
Set Matchs = Rien
Sub-Sub
Public sub set_var (nom byval, valeur byVal, byVal apprend)
Val
Si isNull (valeur) alors val = else val = valeur
Si m_valuuellist.exists (nom) alors
Si ajoutez, alors m_valuuellist.item (name) = m_valuuellist.item (name) & val _
Else m_valualist.item (nom) = val
Autre
M_VALUELIST.ADD NOM, VALEUR
Terminer si
Sub-Sub
Public subst_var (nom Byval)
Si m_valuuellist.exists (nom) alors m_valualist.remove (nom)
Sub-Sub
Fonction privée instanceValue (ByVal BlockTag)
Clés sombres, je
InstanceValue = m_blocklist.item (blocktag)
keys = m_valuuellist.keys
Pour i = 0 à m_valueList.Count-1
InstanceValue = Remplace (instanceValue, {& keys (i) &}, m_valuuellist.item (keys (i))))
Suivant
Fonction finale
Public Subarse (Nom ByVal, Byval BlockTag, Byval APPEND)
Si ce n'est pas m_blocklist.exists (blocktag), alors doucheror (0x12 <br> balise de bloc non définie et parent &!)
Si m_valuuellist.exists (nom) alors
Si ajoutez, alors m_valuuellist.item (name) = m_valuuellist.item (name) & instanceValue (BlockTag) _
Else m_valualist.item (name) = instanceValue (blocktag)
Autre
M_ValueList.add Nom, instanceValue (BlockTag)
Terminer si
Sub-Sub
Finition de fonction privée (contenu ByVal)
Sélectionnez Case M_Unknowns
Case Keep Finish = Contenu
Casque
m_regexp.pattern = / {[^ / t / r / n}] + /}
finir = m_regexp.replace (contenu,)
Commentaire de cas
m_regexp.pattern = / {([^ / t / r / n}] +) /}
fini = m_regexp.replace (contenu, <! - Template variable 1 $ indéfinie ->)
Case Else Finish = Contenu
Fin de sélection
Fonction finale
Sous-sortie publique (nom ByVal)
Si ce n'est pas m_valuuellist.exists (nom), alors doucheror (0x13 <br> n'a pas pu trouver Tag & Name &!)
Response.Write (Finish (m_valuuellist.item (nom))))
Sub-Sub
Classe finale
Partage: utilisation des objets de demande ASP ASP possède principalement cinq objets intégrés: serveur, demande, réponse, application et session. Expliquons-les maintenant en donnant des exemples. Le premier est l'objet de réponse le plus utilisé. Exemple 1 Utilisation de la réponse à la sortie des documents HTML dans les pages Web Vous pouvez saisir la génération ci-dessus dans l'éditeur de FrontPage, ou dans des tableaux d'écriture, des blocs-notes et d'autres écrivains.