Je l'ai trouvé en cherchant des informations sur Internet, mais j'ai trouvé quelques problèmes lors du débogage. Après quelques modifications, il reste encore quelques problèmes, mais il peut être utilisé pour un usage général. Le problème du type de données et la différence entre SQL Server et l'accès n'ont pas été pris en compte. Je l'améliorerai quand j'aurai le temps à l'avenir, je ne sais pas à quel point ce sera efficace. Si quelqu'un l'améliore, envoyez-moi une copie.
Copiez le code comme suit :
<%
classeSQLString
'************************************
'Définition variable
'************************************
'sTableName ---- nom de la table
'iSQLType ----Type d'instruction SQL : 0-ajout, 1-mise à jour, 2-suppression, 3-requête
'Où ---- condition
'sOrder ---- méthode de tri
'sSQL ---- valeur
Nom de table privé, Type iSQL, sOù, Ordre, SQL
'************************************
'Initialisation/fin de classe
'************************************
Sous-classe privée_Initialize()
sTableName=""
iSQLType=0
sOù=""
sCommande=""
SQL=""
Fin du sous-marin
Sous-classe privée_Terminate()
Fin du sous-marin
'************************************
'propriété
'************************************
'Définissez les propriétés du nom de la table
Propriété publique Let TableName (valeur)
sTableName=valeur
Propriété de fin
'Définir les conditions
Propriété publique louée où (valeur)
sOù=valeur
Propriété de fin
'Définir la méthode de tri
Propriété publique laissée en ordre (valeur)
sOrdre=valeur
Propriété de fin
'Définir le type d'instruction de requête
Propriété publique Laissez SQLType(value)
iSQLType=valeur
sélectionner le cas iSQLType
cas 0
sSQL="insérer dans {&*#}0 ({&*#}1) valeurs ({&*#}2)"
cas 1
sSQL="mise à jour {&*#}0 défini {&*#}1={&*#}2"
cas 2
sSQL="supprimer de {&*#}0 "
cas 3
sSQL="sélectionnez {&*#}1 parmi {&*#}0 "
fin de la sélection
Propriété de fin
'************************************
'fonction
'************************************
'Ajouter un champ (nom du champ, valeur du champ)
Public Sub AddField(sFieldName,sValue)
sélectionner le cas iSQLType
cas 0
sSQL=replace(sSQL,"{&*#}1",sFieldName & ",{&*#}1")
sSQL=replace(sSQL,"{&*#}2","" & sValue & ",{&*#}2")
cas 1
sSQL=remplacer(sSQL,"{&*#}1",sFieldName)
sSQL=replace(sSQL,"{&*#}2","" & sValue & ",{&*#}1={&*#}2")
cas 3
sSQL=replace(sSQL,"{&*#}1",sFieldName & ",{&*#}1")
Fin de la sélection
Fin du sous-marin
'Fonction modifiée qui renvoie une valeur de chaîne
'Retourner l'instruction SQL
Fonction publique ReturnSQL()
sSQL=remplacer(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 Sélectionner
si sWhere<>"" et iSQLType<>0 alors
sSQL=sSQL & " où " & sOù
finir si
si sOrder<>"" et iSQLType<>0 alors
sSQL=sSQL & " trier par " & sOrder
finir si
RetourSQL=sSQL
Fonction de fin
'Retourner l'instruction SQL
Fonction publique ReturnSQL1()
sSQL=remplacer(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 Sélectionner
si sWhere<>"" et iSQLType<>0 alors
sSQL=sSQL & " où " & sOù
finir si
si sOrder<>"" et iSQLType<>0 alors
sSQL=sSQL & " trier par " & sOrder
finir si
RetourSQL=sSQL
Fonction de fin
'Déclaration claire
Sous-effacement public()
sTableName=""
iSQLType=0
sOù=""
sCommande=""
SQL=""
Fin du sous-marin
Fin du cours
%>
Exemple d'appel :
<%
set a =new SQLString 'Créer un objet de classe
a.TableName=" message " 'Définit le nom de la table sur message
'a.where="envoyer =9"
'a.order=" envoyer desc"
a.SQLType=0 'Définit le type de requête pour ajouter des enregistrements
a.AddField "incept", "'2'"
a.AddField " expéditeur ", " '%3%' "
a.AddField "titre", "#"&maintenant&"#"
a.AddField " expéditeur ", " 5 "
a.AddField "contenu", "6"
a.AddField " heure d'envoi ", " 7 "
a.AddField "drapeau", 8
a.AddField " issend ", 9
Réponse.Écrire un.ReturnSQl
définir a = rien
%>
<%
set a =new SQLString 'Créer un objet de classe
a.TableName=" message " 'Définit le nom de la table sur message
'a.where="envoyer =9"
'a.order=" envoyer desc"
a.SQLType=0 'Définit le type de requête pour ajouter des enregistrements
a.AddField "incept", "'2'"
a.AddField " expéditeur ", " '%3%' "
a.AddField "titre", "#"&maintenant&"#"
a.AddField " expéditeur ", " 5 "
a.AddField "contenu", "6"
a.AddField " heure d'envoi ", " 7 "
a.AddField "drapeau", 8
a.AddField " issend ", 9
Réponse.Écrire un.ReturnSQl
définir a = rien
%>
<%
set a =new SQLString 'Créer un objet de classe
a.TableName=" message " 'Définit le nom de la table sur message
'a.where="envoyer =9"
'a.order=" envoyer desc"
a.SQLType=0 'Définit le type de requête pour ajouter des enregistrements
a.AddField "incept", "'2'"
a.AddField " expéditeur ", " '%3%' "
a.AddField "titre", "#"&maintenant&"#"
a.AddField " expéditeur ", " 5 "
a.AddField "contenu", "6"
a.AddField " heure d'envoi ", " 7 "
a.AddField "drapeau", 8
a.AddField " issend ", 9
Réponse.Écrire un.ReturnSQl
définir a = rien
%>