Código ASP para visualizar registros do banco de dados
Primeiro, o ASP estabelece uma conexão com o banco de dados.
<%
definir dbconnection=Server.CREATEOBJECT(ADODB.CONNECTION)
DBPath = Servidor.MapPath(cliente.mdb)
dbconnection.Open driver={Driver Microsoft Access (*.mdb)};dbq= & DBPath
Estabeleça uma conexão com o banco de dados, igual ao anterior.
SQL = selecione * do cliente Pedido por horário DESC
SET ListaCliente=dbconnection.EXECUTE(SQL)
%>
Crie uma instrução de consulta SQL para consultar todos os registros da tabela do cliente. Ordenar por hora DESC significa classificar em ordem decrescente por hora, para que as últimas informações adicionadas sejam exibidas na parte superior. A frase a seguir executa a consulta SQL e retorna os resultados para o objeto Recordset CustomerList.
<html>
<corpo>
<FONT SIZE=5><center>Registros de banco de dados</center></FONT>
<CENTRO>
<BORDA DA TABELA=1>
<tr>
<td>Número</td>
<td>Nome da empresa</td>
<td>Nome da pessoa de contato</td>
<td>Cidade</td>
<td>Número de telefone</td>
</tr>
<% FAÇA ENQUANTO NÃO CustomerList.EOF %>
Verifique se o último registro foi alcançado. EOF significa Fim do Arquivo.
<TR>
<TD><% =ListaClientes(número do cliente) %></TD>
<TD><% =Lista de Clientes(nome da empresa) %></TD>
<TD><% =Lista de clientes(Nome do contato) %></TD>
<TD><% =ListaClientes(cidade) %></TD>
<TD><% =Lista de clientes(número de telefone) %></TD>
</TR>
<% =CustomerList(customer number) %> pode ser considerado a abreviatura do método Response.Write. Escreva os dados no campo do número do cliente no espaço da tag TD.
<%CustomerList.movenext
laço
%>
Se o último item não for alcançado, o ponteiro passa para o próximo item. Use Do While... Loop para obter todos os registros um por um.
</TABELA>
</CENTRO>
<centro>
<input type=button onclick=javascript:location.href='add.htm' value=Adicionar dados>
</center>
</BODY>
</HTML>