Modification générale ASP et ajout de code de fonction

Auteur：Eve Cole Date de mise à jour：2025-03-17 19:48:02

D'une manière générale, les principaux problèmes à résoudre lors de l'écriture de programmes de base de données ne sont rien d'autre que l'ajout, la suppression, la modification et l'interrogation. Ce type de programmation est très simple. Ensuite, je vais utiliser un peu de temps libre pour créer une fonction contenant les fonctions d'ajout et de suppression. L'architecture expérimentale peut utiliser la base de données ACCESS du serveur IIS.5WEB. En fait, je n’ai pas besoin d’entrer dans les détails, car tout le monde devrait le savoir. Je vais juste poster la fonction directement. Tout le monde peut l'utiliser avec seulement de légères modifications.

Copiez le code comme suit :

sous-administrateurModifier()

dim Action, rsCheckAdd, rs, sql

Action=requête.QueryString(Action)

if Action=SaveEdit then 'Enregistrer les informations d'administrateur modifiées

définir rs = serveur.createobject (adodb.recordset)

si Résultat=Ajouter alors 'Créer un administrateur de site Web

set rsCheckAdd = conn.execute(sélectionnez AdminName dans Ameav_Admin où AdminName=' & trim(Request.Form(AdminName)) & ')

sinon (rsCheckAdd.bof et rsCheckAdd.eof), alors « Déterminez si ce nom d'administrateur existe

réponse.write <script langage=javascript><!--

alert(' & trim(Request.Form(AdminName)) & L'administrateur existe déjà, veuillez réessayer avec un nom de connexion différent !');history.back(-1);

// --></script>

réponse.end

finir si

sql=select * depuis Ameav_Admin

rs.open sql, conn, 1,3

rs.addnew

si len(trim(Request.Form(AdminName)))<3 ou len(trim(Request.Form(Password)))>10 alors

réponse.write <script langage=javascript><!--

alert('Le nom de connexion de l'administrateur est requis et le nombre de caractères doit être compris entre 3 et 10 caractères !');history.back(-1);

// --></script>

réponse.end

finir si

si len(trim(Request.Form(Password)))<6 ou len(trim(Request.Form(Password)))>16 alors

réponse.write <script langage=javascript><!--

alert('Le mot de passe administrateur est requis et le nombre de caractères doit être compris entre 6 et 16 caractères !');history.back(-1);

// --></script>

réponse.end

finir si

si Request.Form(Password)<>Request.Form(vPassword) alors

réponse.write <script langage=javascript><!--

alert('Les mots de passe saisis deux fois sont différents !');history.back(-1);

// --></script>

réponse.end

finir si

rs(NomAdmin)=trim(Request.Form(NomAdmin))

si Request.Form(Working)=1 alors

rs(Travail)=Request.Form(Travail)

autre

rs (travail) = 0

finir si

rs(Mot de passe)=Md5(Request.Form(Mot de passe))

rs (Nom d'utilisateur) = trim (Request.Form (Nom d'utilisateur))

rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_

Request.Form(Purview114) & Request.Form(Purview115) & Request.Form(Purview116) &_

Request.Form(Purview117) & Request.Form(Purview118) & Request.Form(Purview119) &_

Request.Form(Purview120) & Request.Form(Purview121) & Request.Form(Purview122) &_

Request.Form(Purview123) & Request.Form(Purview124) & Request.Form(Purview125) &_

Request.Form(Purview126) & Request.Form(Purview127) & Request.Form(Purview128) &_

Request.Form(Purview129) & Request.Form(Purview130) & Request.Form(Purview131) &_

Request.Form(Purview132) & Request.Form(Purview133) & Request.Form(Purview134) &_

Request.Form(Purview135) & Request.Form(Purview136) & Request.Form(Purview137) &_

Request.Form(Purview138) & Request.Form(Purview139) & Request.Form(Purview140) &_

Request.Form(Purview141) & Request.Form(Purview142) & Request.Form(Purview143) &_

Request.Form(Purview144) & Request.Form(Purview145) & Request.Form(Purview146) &_

Request.Form(Purview147) & Request.Form(Purview148) & Request.Form(Purview149) &_

Request.Form(Purview150) & Request.Form(Purview151) & Request.Form(Purview152) &_

Formulaire de demande (Purview153)

rs(Expliquer)=trim(Request.Form(Expliquer))

rs(AddTime)=maintenant()

finir si

si Résultat=Modifier alors 'Modifier l'administrateur du site Web

sql=select * depuis Ameav_Admin où ID=&ID

rs.open sql, conn, 1,3

rs(NomAdmin)=trim(Request.Form(NomAdmin))

si Request.Form(Working)=1 alors

rs(Travail)=Request.Form(Travail)

autre

rs (travail) = 0

finir si

si trim(Request.Form(Password))<> alors

si len(trim(Request.Form(Password)))<6 ou len(trim(Request.Form(Password)))>20 alors

réponse.write <script langage=javascript><!--

alert('Le mot de passe administrateur est requis et doit contenir de 6 à 20 caractères !'); history.back(-1);