Conexión de la base de datos:
El siguiente es el contenido de referencia:
<%
Establecer conn = server.createObject (ADODB.Connection)
Conn.open Driver = {Microsoft Access Driver (*.mdb)};
%>
Abra la base de datos:
El siguiente es el contenido de referencia:
exec = select * de la tabla de base de datos
Establecer RS = Server.CreateObject (ADODB.oldset)
Rs.oopen Exec, Conn, 1,1
Parámetro 1, 1 para leer
Lea el formato de contenido: <%= rs (campo)%>
Agregar programa de procesamiento de registros:
El siguiente es el contenido de referencia:
<%
Establecer conn = server.createObject (ADODB.Connection)
Conn.open Driver = {Microsoft Access Driver (*.mdb)};
name = request.form (campo) Nombre, Tel, mensaje para enviar el valor de campo
Tel = request.form (campo)
mensaje = request.form (campo)
exec = insertar en los valores de nombre de tabla (campo) ('+campo+') está separado por una coma con una coma
Conn.ExCute Exec utiliza la envío de ejecutivo
Conn.clar
establecer conn = nada
%>
Programa de procesamiento de búsqueda:
El siguiente es el contenido de referencia:
<%
name = request.form (campo) Nombre, Tel es el valor de campo establecido mediante la configuración del formulario del formulario
Tel = request.form (campo)
Establecer conn = server.createObject (ADODB.Connection)
Conn.open Driver = {Microsoft Access Driver (*.mdb)};
EXEC = SELECCIONAR * DESDE TABLA WHERE NAME = '+Field+' y Tel =+Field
Establecer RS = Server.CreateObject (ADODB.oldset)
Rs.oopen Exec, Conn, 1,1
%>
'El contenido de la página buscó
<%
haz mientras no rs.eof
%> <tr>
<td> <%= rs (nombre)%> </td>
<td> <%= rs (tel)%> </td>
<TD> <%= rs (tiempo)%> </td>
</tr>
<%
Rs.Movenext
bucle
%>
Eliminar el programa de procesamiento de registros:
El siguiente es el contenido de referencia:
<%
Establecer conn = server.createObject (ADODB.Connection)
Conn.open Driver = {Microsoft Access Driver (*.mdb)};
exec = Eliminar * del nombre de la tabla donde número = & request.form (id)
conn.execute ejecutor
%>
Modificar el programa de procesamiento de registros:
El siguiente es el contenido de referencia:
<%
Establecer conn = server.createObject (ADODB.Connection)
Conn.open Driver = {Microsoft Access Driver (*.mdb)};
EXEC = SELECCIONAR * DEL Nombre de la tabla Where Number = & request.form (id)
Establecer RS = Server.CreateObject (ADODB.oldset)
Rs.oopen Exec, Conn, 1,3 '1,3 se modifica significado
Rs (nombre) = request.form (campo) 'Nombre, Tel, Mensaje es el valor de campo establecido mediante el envío del formulario
rs (tel) = request.form (campo)
RS (mensaje) = request.form (campo)
rs.
Rs.
establecer RS = nada
Conn.clar
establecer conn = nada
%>
Modifique el programa de ejecución de registros: ingrese la página Número de identificación >>> Exportar los datos de identificación correspondientes >>>>>> programa de procesamiento modificado directamente
Ejemplo de procedimientos de procesamiento de inicio de sesión:
El siguiente es el contenido de referencia:
<%
Nombre tenue, contraseña
name = request.form (nombre)
contraseña = request.form (contraseña)
Dim Exec, Conn, RS
EXEC = SELECCIONAR *DEL Nombre de la tabla Where (name = '& Field &' y contraseña = '& Field &')
Establecer conn = server.createObject (ADODB.Connection)
Conn.open Driver = {Microsoft Access Driver (*.mdb)};
Establecer RS = Server.CreateObject (ADODB.oldset)
Rs.oopen EXEC, Conn
Si no es RS.EOF entonces
Rs.
Conn.clar
sesión (marcado) = sí
Sesión (cheque) = Derecha
respuesta.Redirect index.asp
demás
sesión (marcado) = no
sesión (cheque) = W
Respuesta.Redirect Login.asp
final si
%>
Cada página de fondo más:
<%si no la sesión (marcado) = sí entonces 'SESIÓN DEFINE una variable de cadena marcada
Respuesta.Redirect Login.asp
demás
%>