lt;%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
建立与数据库的连接,与上同。
SQL="select * from 客户 Order By 时间 DESC"
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
建立SQL查询语句,表示从"客户"表中查询所有记录,Order By 时间 DESC表示"按时间降序排序,"这样最后添加的信息再最上面显示。下面一句执行SQL查询并将结果返回给Recordset对象CustomerList。
编号 | 公司名称 | 联络人姓名 | 所在城市 | 电话号码 |
<% =CustomerList("客户编号") %> | <% =CustomerList("公司名称") %> | <% =CustomerList("联络人姓名") %> | <% =CustomerList("所在城市") %> | <% =CustomerList("电话号码") %> |