Modificación general de ASP y adición de código de función.

Autor：Eve Cole Fecha de actualización：2025-03-17 19:48:02

En términos generales, los principales problemas a resolver al escribir programas de bases de datos no son más que agregar, eliminar, modificar y consultar. Este tipo de programación es muy sencilla. A continuación, usaré algo de tiempo libre para crear una función que contenga las funciones de agregar y eliminar. La arquitectura experimental puede utilizar la base de datos ACCESS del servidor IIS.5WEB. En realidad no necesito entrar en detalles sobre esto, porque todo el mundo debería saberlo. Publicaré la función directamente. Todo el mundo puede utilizarlo con sólo ligeras modificaciones.

Copie el código de código de la siguiente manera:

subAdminEditar()

Acción tenue, rsCheckAdd, rs, sql

Acción=solicitud.QueryString(Acción)

si Action=SaveEdit entonces 'Guardar la información del administrador editada

establecer rs = servidor.createobject(adodb.recordset)

Si Resultado=Agregar entonces 'Crear administrador de sitio web'

establezca rsCheckAdd = conn.execute (seleccione AdminName de Ameav_Admin donde AdminName =' & trim(Request.Form(AdminName)) & ')

si no (rsCheckAdd.bof y rsCheckAdd.eof), entonces 'Determinar si este nombre de administrador existe

respuesta.write <lenguaje de escritura=javascript><!--

alert(' & trim(Request.Form(AdminName)) & El administrador ya existe, ¡inténtelo nuevamente con un nombre de inicio de sesión diferente!');history.back(-1);

// --></script>

respuesta.fin

terminar si

sql=seleccionar * de Ameav_Admin

rs.open sql, conexión, 1,3

rs.añadirnuevo

si len(trim(Request.Form(AdminName)))<3 o len(trim(Request.Form(Contraseña)))>10 entonces

respuesta.write <lenguaje de escritura=javascript><!--

alert('¡Se requiere el nombre de inicio de sesión del administrador y la cantidad de caracteres debe ser de 3 a 10 caracteres!');history.back(-1);

// --></script>

respuesta.fin

terminar si

si len(trim(Request.Form(Contraseña)))<6 o len(trim(Request.Form(Contraseña)))>16 entonces

respuesta.write <lenguaje de escritura=javascript><!--

alert('¡Se requiere la contraseña de administrador y el número de caracteres debe ser de 6 a 16 caracteres!');history.back(-1);

// --></script>

respuesta.fin

terminar si

si Solicitud.Form(Contraseña)<>Request.Form(contraseñav) entonces

respuesta.write <lenguaje de escritura=javascript><!--

alert('¡Las contraseñas ingresadas dos veces son diferentes!');history.back(-1);

// --></script>

respuesta.fin

terminar si

rs(NombreAdmin)=trim(Solicitud.Form(NombreAdmin))

si Request.Form(Working)=1 entonces

rs(Trabajando)=Solicitud.Form(Trabajando)

demás

rs(Trabajando)=0

terminar si

rs(Contraseña)=Md5(Solicitud.Formulario(Contraseña))

rs(Nombre de usuario)=trim(Solicitud.Form(Nombre de usuario))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Solicitud.Form(Compurview153)

rs(Explicar)=trim(Solicitud.Form(Explicar))

rs(AgregarHora)=ahora()

terminar si

si Resultado=Modificar entonces 'Modificar administrador del sitio web

sql=select * de Ameav_Admin donde ID=&ID

rs.open sql, conexión, 1,3

rs(NombreAdmin)=trim(Solicitud.Form(NombreAdmin))

si Request.Form(Working)=1 entonces

rs(Trabajando)=Solicitud.Form(Trabajando)

demás

rs(Trabajando)=0

terminar si

si trim(Solicitud.Form(Contraseña))<> entonces

si len(trim(Request.Form(Contraseña)))<6 o len(trim(Request.Form(Contraseña)))>20 entonces

respuesta.write <lenguaje de escritura=javascript><!--

alert('¡La contraseña de administrador es obligatoria y debe tener entre 6 y 20 caracteres!');