Recommandé: code de modèle ASP Modèle de classe privé M_Filename, M_ROOT, M_UNKNOWNS, M_lasterror, m_haltonerr private m_valualist, m_blocklist private m_regexp private sub class_initialize set m_valuuellist = createObject (scripting.dictionary) set m_blocklist = createObject (script (script (script (script (script
Lors de la rédaction d'un programme de base de données ASP, nous utilisons généralement des instructions SQL, et lors de l'ajout et de la mise à jour de données, nous utilisons généralement la méthode suivante: Insérer dans les valeurs du message (incept, de l'expéditeur, du titre, du contenu, du nom de Sendtime, du Flag, Issend) (`` & INCEPT (i) & ',', & membre-nom & ',' & title & ',' & mess Impossible de modifier et de trouver des erreurs. Après avoir utilisé cette classe SQL, elle peut être simplifiée et il est plus facile de vérifier les erreurs. L'ajout de noms de champ et de valeurs de champ via la fonction AddField de la classe peut facilement insérer les noms de champ et les valeurs de champ dans les instructions SQL, puis renvoyer l'instruction SQL.
Jetons un coup d'œil au code de cette classe:
＜%
classe sqlstring
'***************************************
'Définition variable
'***************************************
'Stablename --- Nom du tableau
'IsqlType --- Type de déclaration SQL: 0-ADD, 1-Update, 2-Delete, 3-Queery
'Swhere --- Conditions
'Sorder --- Triez par
'SSQL ---- Valeur
Stablename privé, IsqlType, Swhere, Sorder, SSQL
'***************************************
'Initialisation / fin de classe
'***************************************
Private Sub class_Initialize ()
stablename =
isqlType = 0
Swhere =
Sorder =
ssql =
Sub-Sub
Private Sub class_termiate ()
Sub-Sub
'***************************************
'propriété
'***************************************
'Définir les propriétés du nom de la table
Propriété publique Let TableName (valeur)
stablename = valeur
Propriété finale
'Réglez les conditions
Propriété publique laisse où (valeur)
swhere = valeur
Propriété finale
'Définissez la méthode de tri
Propriété publique Let commande (valeur)
Sorder = valeur
Propriété finale
'Définissez le type de déclaration de requête
Propriété publique Soit SqlType (valeur)
IsqlType = valeur
Sélectionner le cas IsqlType
cas 0
ssql = insérer dans les valeurs # 0 (# 1) (# 2)
cas 1
ssql = mise à jour # 0 set # 1 = # 2
cas 2
ssql = supprimer de # 0
cas 3
SSQL = SELECT # 1 FROM # 0
fin de sélection
Propriété finale
'***************************************
'fonction
'***************************************
'Ajouter un champ (nom de champ, valeur de champ)
Public Sub Addfield (Sfieldname, Svalue)
Sélectionner le cas IsqlType
cas 0
SSQL = Remplacer (SSQL, # 1, SfieldName &, # 1)
SSQL = Remplace (SSQL, # 2, '& Sfieldname &', # 2)
cas 1
SSQL = Remplace (SSQL, # 1, SfieldName)
SSQL = Remplace (SSQL, # 2, '& SfieldName &', # 1 = # 2)
cas 3
SSQL = Remplacer (SSQL, # 1, SfieldName &, # 1)
Fin de sélection
Sub-Sub
'Return SQL Instruction
Fonction publique returnsql ()
ssql = Remplace (ssql, # 0, stablename)
Sélectionner le cas IsqlType
cas 0
ssql = remplacer (ssql ,, # 1,)
ssql = remplacer (ssql ,, # 2,)
cas 1
ssql = remplacer (ssql ,, # 1 = # 2,)
cas 3
ssql = remplacer (ssql ,, # 1,)
fin de sélection
Si swhere ＜＞ alors
ssql = ssql & where & swhere
terminer si
Si Sorder ＜＞ alors
SSQL = SSQL & ORDER BY & SORDER
terminer si
Returnsql = ssql
Fonction finale
'Déclaration claire
Public sub clear ()
stablename =
isqlType = 0
Swhere =
Sorder =
ssql =
Sub-Sub
classe finale
% ＞
Comment utiliser:
Exemple: Insérer dans le message (Incept, expéditeur, titre, contenu, Sendtime, Flag, Issend) VALEUR ('& INCEPT (i) &', '& MemberName &', '& Title &', '& Message &', Now (), 0,1)
set a = new sqlstring 'créer un objet de classe
a.tableName = message 'définir le nom de la table en tant que message
a.sqlType = 0 'Définissez le type de requête pour ajouter un enregistrement
A.Addfield Incept, Incept (i)
A.Addfield Sender, membre
A.Addfield Titre, membre du membre
A.Addfield Sender, titre
A.Addfield Content, message
A.Addfield Sendtime, Sendtime ()
A.Addfield Flag, 0
A.Addfield Issend, 1
Response.Write A.returnnsql
Définir A = rien
Partager: programme de calendrier produit 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% '====================================================================. ====================================================================. ====================================================================. ====================================================================.