Código ASP para ver registros de base de datos
Primero, ASP establece una conexión con la base de datos.
<%
establecer dbconnection=Server.CRATEEOBJECT(ADODB.CONNECTION)
DBPath = Servidor.MapPath(cliente.mdb)
dbconnection.Open driver={Controlador de Microsoft Access (*.mdb)};dbq= & DBPath
Establezca una conexión con la base de datos, igual que arriba.
SQL=seleccione * del cliente Orden por hora DESC
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
Cree una declaración de consulta SQL para consultar todos los registros de la tabla de clientes. Ordenar por tiempo DESC significa ordenar en orden descendente por tiempo, de modo que la última información agregada se muestre en la parte superior. La siguiente oración ejecuta la consulta SQL y devuelve los resultados al objeto Recordset CustomerList.
<html>
<cuerpo>
<FONT SIZE=5><center>Registros de base de datos</center></FONT>
<CENTRO>
<BORDE DE LA TABLA=1>
<tr>
<td>Número</td>
<td>Nombre de la empresa</td>
<td>Nombre de la persona de contacto</td>
<td>Ciudad</td>
<td>Número de teléfono</td>
</tr>
<% HACER MIENTRAS NO CustomerList.EOF %>
Compruebe si se ha alcanzado el último registro. EOF significa Fin de Archivo.
<TR>
<TD><% =ListaClientes(número de cliente) %></TD>
<TD><% =ListaClientes(nombre de la empresa) %></TD>
<TD><% =ListaClientes(Nombre de contacto) %></TD>
<TD><% =ListaClientes(ciudad) %></TD>
<TD><% =ListaClientes(número de teléfono) %></TD>
</TR>
Se puede decir que <% =CustomerList(número de cliente) %> es la abreviatura del método Response.Write. Escriba los datos en el campo del número de cliente en el espacio de la etiqueta TD.
<%ListaClientes.movenext
bucle
%>
Si no se ha llegado al último elemento, el puntero pasa al siguiente elemento. Utilice Do While... Loop para obtener todos los registros uno por uno.
</TABLA>
</CENTRO>
<centro>
<tipo de entrada=botón al hacer clic=javascript:ubicación.href='add.htm' valor=Agregar datos>
</centro>
</CUERPO>
</HTML>