v1. Supprimer les enregistrements
opendataconn 'Ouvrir la connexion à la base de données
xxlb=RtnReplaceInt(Trim(request(xxlb)),0) 'De l'intérieur vers l'extérieur, la variable xxlb est reçue et les espaces aux deux extrémités de la variable sont supprimés. La couche la plus externe est une fonction personnalisée, qui est. probablement lié au remplacement.
id=changechr(request(id)) 'Recevez l'identifiant et convertissez-le en chaîne
ids=split(id,,) 'Divisez l'identifiant par et enregistrez-le dans les identifiants du tableau
for i=0 to ubound(ids) 'Utilisez une boucle for pour parcourir le tableau
tt=trim(ids(i)) 'Supprimez les espaces aux deux extrémités des éléments du tableau et attribuez-les à tt
conn.executedelete from house Where id=&tt& 'Supprimer l'enregistrement de la variable id=tt dans la table de données
prochaine fin de boucle
réponse.redirect house.asp?xxlb=&xxlb& 'Allez à la page d'accueil et utilisez la méthode get pour transmettre le paramètre xxlb, la valeur est la valeur de la variable xxlb.
closedataconn ferme la connexion à la base de données
2. Connectez-vous à la base de données
dim conn 'Définir les variables
dim char_str(20) 'Définir un tableau
sub OpenDataConn() 'Processus personnalisé, emplacement de la base de données des liens utilisateur
dim connstr définit les variables
connstr = Fournisseur = Microsoft.Jet.OLEDB.4.0; Source de données =
connstr = connstr & Server.MapPath(../../data/fyhouse_free.mdb) 'Chaîne du pilote de base de données
'response.write connstr affiche la valeur de la variable connstr
set conn=Server.CreateObject(AdoDb.Connection) 'Créer un objet de connexion
conn.Ouvrir connstr 'Base de données de liens
end sub Cette phrase marque la fin du processus, mais à en juger par le code que vous avez posté, il n'y a pas de début.