Hoy escribiremos un programa de tablero de mensajes con funciones de gestión. La llamada función de administración en realidad significa que hay un cuadro de selección delante de cada mensaje. Haga clic en el mensaje que desea eliminar o haga clic en "Eliminar todos los mensajes" para completar la eliminación por lotes. A través de este ejemplo, podemos tener una comprensión preliminar de las operaciones básicas de la base de datos en ASP.
1. Establecer una base de datos (versión china ACCESS2000)
tipo de texto myid 20 bytes Esta es la única señal de voz
myname tipo de texto 10 bytes Este es el nombre de la persona que dejó el mensaje
Nowtime tipo de fecha/hora La hora del mensaje se registra aquí
tipo de texto mytitle 30 bytes Este es el título del mensaje
mybody comenta el contenido del mensaje
El campo myid es la clave, es el único signo de eliminación.
2.
Código de gestión del programa de gestión.asp
'Defina las variables primero
listas tenues, conexión, cmd
'El número de ciclos de i se puede modificar de acuerdo con el número real de mensajes
para i=1 a 100
si la solicitud ("delit" & i) <> está vacía, entonces
'La declaración anterior es la parte clave. Compruebe si el i-ésimo mensaje está seleccionado. Si está seleccionado, realice la siguiente operación de eliminación.
Establecer conexión = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
'La función mappath utiliza un parámetro guestbook.mdb, que indica la base de datos a conectar. Preste atención al problema de la ruta.
conn.Abrir sConexión
'Vuelva a conectar la tabla de datos
establecer cmd=Server.Createobject("ADODB.Command")
establecer cmd.activeconnection=conexión
cmd.commandtext="eliminar del invitado donde myid='"&request("delit"&i)&"'"
'El invitado de arriba es el nombre de la tabla de datos y myid es el nombre del campo
cmd.ejecutar
establecer conexión=Nada
establecer cmd=Nada
'Ejecutar instrucciones SQL y liberar objetos
terminar si
próximo
'Envíe el formulario, tenga en cuenta que el atributo de acción apunta a administrar.asp
respuesta.escribir ""
'Conectarse a la base de datos
establecer conexión=Server.CreateObject("ADODB.Connection")
establecer listrs=server.createobject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("guestbook.mdb")&";"
conn.Abrir sConexión
listrs.open "seleccionar * del invitado",conn,2,2
'La tabla de invitados de la base de datos se abre arriba
yo=1
'Variable i empieza a contar
mientras no listrs.eof
respuesta.escribir "De:"&listrs("minombre")&"----"&listrs("mitítulo")&"Hora:"&listrs("ahora")&"
"&listrs("micuerpo")&"
"
yo=yo+1
'Los dos pasos anteriores son los puntos clave. Al enviar cada mensaje, genere una casilla de verificación. La función de esta casilla es devolver valores diferentes cuando está marcada o desmarcada.
listrs.movenext
encaminarse a
establecer listas=Nada
'Botón de envío de salida y bandera de fin de formulario
respuesta.escribir
3. Análisis de código
El código no es fácil de entender, así que déjame explicarte:
1. Cuando el programa se ejecuta por primera vez, si request("delit"&i)<>empty siempre devuelve un valor falso porque la casilla de verificación no está seleccionada y luego se generan todos los mensajes.
2. Después de seleccionar el mensaje que desea eliminar, presione el "botón Eliminar" y vuelva a ejecutar.
3. Después de eliminar todos los mensajes seleccionados, envíe el tablero de mensajes.