首先是ASP与数据库建立连接
<%
set dbconnection=ServerCREATEOBJECT(ADODBCONNECTION)
DBPath = ServerMapPath(customermdb)
dbconnectionOpen driver={Microsoft Access Driver (*mdb)};dbq= & DBPath
建立与数据库的连接与上同
SQL=select * from 客户 Order By 时间 DESC
SET CustomerList=dbconnectionEXECUTE(SQL)
%>
建立SQL查询语句表示从客户表中查询所有记录Order By 时间 DESC表示按时间降序排序这样最后添加的信息再最上面显示下面一句执行SQL查询并将结果返回给Recordset对象CustomerList
<html>
<body>
<FONT SIZE=><center>数据库记录</center></FONT>
<CENTER>
<TABLE BORDER=>
<tr>
<td>编号</td>
<td>公司名称</td>
<td>联络人姓名</td>
<td>所在城市</td>
<td>电话号码</td>
</tr>
<% DO WHILE NOT CustomerListEOF %>
检测记录是否到了最后一条EOF表示End of File
<TR>
<TD><% =CustomerList(客户编号) %></TD>
<TD><% =CustomerList(公司名称) %></TD>
<TD><% =CustomerList(联络人姓名) %></TD>
<TD><% =CustomerList(所在城市) %></TD>
<TD><% =CustomerList(电话号码) %></TD>
</TR>
<% =CustomerList(客户编号) %>可以说是ResponseWrite方法的简写将客户编号字段内的数据写入TD标签间
<% CustomerListmovenext
loop
%>
如果还没有到最后一条则指针移动到下一条用Do While Loop循环逐一取得所有的记录
</TABLE>
</CENTER>
<center>
<input type=button onclick=javascript:location value=添加数据>
</center>
</BODY>
</HTML>
缺陷仅仅实现了最基本的功能先不说其它功能仅就数据的添加和查看功能来看比较完美的还应该加入分页功能否则数据大到一定程度显示全部数据基本上是不可能的
