Aujourd'hui, nous allons écrire un programme de babillard électronique avec des fonctions de gestion. La fonction dite de gestion signifie en fait qu'il y a une boîte de sélection devant chaque message. Cliquez sur le message à supprimer, ou cliquez sur "Supprimer tous les messages" pour terminer la suppression par lots. Grâce à cet exemple, nous pouvons avoir une compréhension préliminaire des opérations de base de la base de données en ASP.
1. Établir une base de données (version chinoise ACCESS2000)
type de texte myid 20 octets C'est le seul signe de parole
monnom type de texte 10 octets C'est le nom de la personne qui a laissé le message
nowtime type de date/heure L'heure du message est enregistrée ici
montitre type de texte 30 octets C'est le titre du message
mon corps remarque le contenu du message
Le champ myid est la clé, c'est le seul signe de suppression.
2. Programme de gestion
code manage.asp
'Définissez d'abord les variables
dim listrs, conn, cmd
'Le nombre de cycles de i peut être modifié en fonction du nombre réel de messages
pour i=1 à 100
si request("delit"&i)<>vide alors
'L'instruction ci-dessus est l'élément clé. Vérifiez si le i-ème message est sélectionné. S'il est sélectionné, effectuez l'opération de suppression suivante.
Définir conn = Server.CreateObject("ADODB.Connection")
sConnexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
'La fonction mappath utilise un paramètre guestbook.mdb, indiquant la base de données à connecter. Faites attention au problème de chemin.
conn.Ouvrir sConnection
'Reconnecter la table de données
set cmd=Server.Createobject("ADODB.Command")
définir cmd.activeconnection=conn
cmd.commandtext="supprimer de l'invité où myid=""&request("delit"&i)&"'"
'L'invité ci-dessus est le nom de la table de données et myid est le nom du champ
cmd.exécuter
set conn=Rien
set cmd=Rien
'Exécuter les instructions SQL et libérer les objets
finir si
suivant
'Sortez le formulaire, notez que l'attribut d'action pointe vers manage.asp
réponse.écrire ""
'Se connecter à la base de données
set conn=Server.CreateObject("ADODB.Connection")
set listrs=server.createobject("ADODB.Recordset")
sConnexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
conn.Ouvrir sConnection
listrs.open "sélectionner * depuis l'invité", conn, 2,2
'La table invité de la base de données est ouverte ci-dessus
je = 1
'Variable, je commence à compter
alors que ce n'est pas listrs.eof
réponse.write "De :"&listrs("monnom")&"----"&listrs("montitre")&"Heure :"&listrs("nowtime")&"
"&listrs("mon corps")&"
"
je=je+1
"Les deux étapes ci-dessus sont les points clés. Lors de la sortie de chaque message, affichez une case à cocher. La fonction de cette case est de renvoyer des valeurs différentes lorsqu'elle est cochée ou décochée.
listrs.movenext
wend
set listrs=Rien
'Bouton de soumission de sortie et indicateur de fin de formulaire
réponse.write
3. Analyse du code
Le code n'est pas facile à comprendre, alors laissez-moi vous expliquer :
1. Lorsque le programme est exécuté pour la première fois, si request("delit"&i)<>empty renvoie toujours une valeur fausse car la case à cocher n'est pas cochée, puis tous les messages sont générés.
2. Après avoir sélectionné le message à supprimer, appuyez sur le « bouton Supprimer » et réexécutez.
3. Après avoir supprimé tous les messages sélectionnés, affichez le babillard électronique.