La copie de code est la suivante:
'Titre des informations sur le sujet
`` Nom de l'entreprise de l'entreprise
'Contenu du contenu des informations de publication
'Adresse de l'adresse de l'entreprise
«Profil de l'entreprise d'international
'Remarque les instructions connexes
Toutes les valeurs ci-dessus sont soumises par formulaire, puis les valeurs correspondantes sont obtenues par: sujet = Trim (request.form ("Subject")) etc.
<%
«Cette fonction est très critique! --------------------------------------------------------------------------------------------------------------------------------
FunctionSQL (A, B, SQLS)
IFB <> "" Alors 'Si le client ne soumet pas cette valeur, l'instruction SQL correspondante ne sera pas générée.
SQLS = SQLS & "et" & A & "Like '%" & b & "%'"
endire
SQL = SQLS
Finition de fin
'-----------------------------------------------------------------------------------------------------------------------------
SetCon_n = server.createObject ("adodb.connection")
Dbpath = server.mappath ("/ database / mydb.mdb")
Conn.open "Driver = {Microsoft AccessDriver (*. MDB)}; pwd =; dbq =" & dbPath
Setrs = server.createObject ("adodb.recordSet")
SQLS = "SELECT * FromMyTablewhere1 = 1"
«Les appels suivants sont la fonction ci-dessus, et il y a de nombreux appels (théoriquement tous)
SQLS = SQL ("Sujet", Sujet, SQLS)
SQLS = SQL ("Société", société, SQLS)
SQLS = SQL ("Contenu", Contenu, SQLS)
SQLS = SQL ("Adresse", adresse, SQLS)
SQLS = SQL ("Infomation", Infomation, SQLS)
SQLS = SQL ("Remarque", note, SQLS)
SQLS = SQLS & "ORDERBYIDDESC"
Rs.OpenSQLS, Conn, 3,2
%>
[Conclusion]
S'il n'y a pas de fonction de fonction clé (A, B, SQLS), nous pouvons imaginer combien de jugements sont nécessaires les uns après les autres!