ASP查询数据库记录的代码

发布时间：2023-07-13 15:15:38 所属栏目：Asp教程来源：

导读：首先是ASP与数据库建立连接。

<%

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "driver={Microsoft Access Driver (*.md

首先是ASP与数据库建立连接。

<%

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。

<html>

<body>

<FONT SIZE="5"><center>数据库记录</center></FONT>

<CENTER>

<TABLE BORDER=1>

<tr>

<td>编号</td>

<td>公司名称</td>

<td>联络人姓名</td>

<td>所在城市</td>

<td>电话号码</td>

</tr>

<% DO WHILE NOT CustomerList.EOF %>

检测记录是否到了最后一条。EOF表示End of File。

<TR>

<TD><% =CustomerList("客户编号") %></TD>

<TD><% =CustomerList("公司名称") %></TD>

<TD><% =CustomerList("联络人姓名") %></TD>

<TD><% =CustomerList("所在城市") %></TD>

<TD><% =CustomerList("电话号码") %></TD>

</TR>

<% =CustomerList("客户编号") %>可以说是Response.Write方法的简写。将"客户编号"字段内的数据写入TD标签间。

<% CustomerList.movenext

loop

%>

如果还没有到最后一条则指针移动到下一条。用Do While ... Loop循环逐一取得所有的记录。

</TABLE>

</CENTER>

<center>

<input type="button" onclick="javascript:location.href='add.htm'" value="添加数据">

</center>

</BODY>

</HTML>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!