</tr>
</table>
</div>
</form>
</body>
</html>
---addnewdatabase.asp---
<%
rs.AddNew
rs("公司名") = CompanyName
rs("电话") = Tel
rs("传真") =Fax
rs("类别") = Classes
rs("联系人")=Cname
rs("备注")=Backups
rs.Update
%>
---viewdatabase.asp---
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Dbpath '建立与数据库的连接，与上同。
SQL="select * from customers Order By 公司名 DESC"
SET CustomerList=dbconnection.EXECUTE(sql)
%>
<html>
<body>
<FONT SIZE="5"><center>数据库记录</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>
<td>公司名</td>
<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>
<TD><% =CustomerList("备注") %></TD>
</TR>
<%
CustomerList.movenext
loop
'如果还没有到最后一条则指针移动到下一条。用Do While ... Loop循环逐一取得所有的记录。
%>
</TABLE>
</CENTER>
<center>
<input type="button" onclick="javascript:location.href='add.html' " value="添加数据">
</center>
</BODY>
</HTML>
===================
所出现问题解决方法：
1.
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Dbpath '建立与数据库的连接，与上同。
上一篇:包含其他文件，ASP中InClude的介绍
下一篇:ASP开发44条技巧集锦之一
|
精品推荐