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!');
// --></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(Contraseña)=Md5(Solicitud.Formulario(Contraseña))
terminar si
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))
terminar si
rs.actualización
rs.cerrar
establecer rs = nada
respuesta.write <lenguaje de escritura=javascript><!--
alert('¡Administrador del sitio web editado exitosamente!'); changeAdminFlag('administrador del sitio web');
// --></script>
else 'Extraer información del administrador
si Resultado=Modificar entonces
establecer rs = servidor.createobject(adodb.recordset)
sql=select * de Ameav_Admin donde ID=& ID
rs.open sql, conexión, 1,1
NombreAdmin=rs(NombreAdmin)
Trabajando=rs(Trabajando)
Nombre de usuario=rs(Nombre de usuario)
Competencia=rs(AdminPurview)
Explicar=rs(Explicar)
rs.cerrar
establecer rs = nada
terminar si
terminar si
sub final
%>