練習(xí)一：
建立一簡(jiǎn)單數(shù)據(jù)庫的添加、顯示、查詢功能實(shí)現(xiàn) 注：[采用access2000+asp,數(shù)據(jù)庫：customer.mdb(字段: 公司名（字符型）、電話（數(shù)據(jù)型）、傳真（數(shù)據(jù)型）、類別（字符型）、聯(lián)系人（字符型）、備注（字符型））]
<在winxp pro+iis5.1環(huán)境下完成測(cè)試>
頁面代碼如下：
---add.html----
<html>
<head>
<title>添加數(shù)據(jù)庫記錄</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<p align="center"><font size="5">添加數(shù)據(jù)庫記錄</font></p>
<form method="post" action="adddatabase.asp">
<div align="center">
<table width="46%" border="0">
<tr>
<td width="28%">
<div align="right">公司名:</div>
</td>
<td width="72%">
<input type="text" name="CompanyName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">電話：</div>
</td>
<td width="72%">
<input type="text" name="Tel">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">傳真： </div>
</td>
<td width="72%">
<input type="text" name="Fax">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">類別：</div>
</td>
<td width="72%">
<input type="text" name="Classes">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">聯(lián)系人：</div>
</td>
<td width="72%">
<input type="text" name="Cname">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">備注：</div>
</td>
<td width="72%">
<input type="text" name="Backups">
</td>
</tr>
<tr>
<td width="28%">
<div align="right"> </div>
</td>
<td width="72%">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
---adddatabase.asp---
<html>
<head>
<title>添加數(shù)據(jù)庫記錄</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<p align="center"><font size="5">添加數(shù)據(jù)庫記錄</font></p>
<form method="post" action="adddatabase.asp">
<div align="center">
<table width="46%" border="0">
<tr>
<td width="28%">
<div align="right">公司名:</div>
</td>
<td width="72%">
<input type="text" name="CompanyName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">電話：</div>
</td>
<td width="72%">
<input type="text" name="Tel">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">傳真： </div>
</td>
<td width="72%">
<input type="text" name="Fax">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">類別：</div>
</td>
<td width="72%">
<input type="text" name="Classes">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">聯(lián)系人：</div>
</td>
<td width="72%">
<input type="text" name="Cname">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">備注：</div>
</td>
<td width="72%">
<input type="text" name="Backups">
</td>
</tr>
<tr>
<td width="28%">
<div align="right"> </div>
</td>
<td width="72%">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
---addnewdatabase.asp---
<%
rs.AddNew
rs("公司名") = CompanyName
rs("電話") = Tel
rs("傳真") =Fax
rs("類別") = Classes
rs("聯(lián)系人")=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 '建立與數(shù)據(jù)庫的連接，與上同。
SQL="select * from customers Order By 公司名 DESC"
SET CustomerList=dbconnection.EXECUTE(sql)
%>
<html>
<body>
<FONT SIZE="5"><center>數(shù)據(jù)庫記錄</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>
<td>公司名</td>
<td>電話</td>
<td>傳真</td>
<td>類別</td>
<td>聯(lián)系人</td>
<td>備注</td>
</tr>
<% DO WHILE NOT CustomerList.EOF
'檢測(cè)記錄是否到了最后一條。EOF表示End of File。
%>
<TR>
<TD><% =CustomerList("公司名") %></TD>
<TD><% =CustomerList("電話") %></TD>
<TD><% =CustomerList("傳真") %></TD>
<TD><% =CustomerList("類別") %></TD>
<TD><% =CustomerList("聯(lián)系人") %></TD>
<TD><% =CustomerList("備注") %></TD>
</TR>
<%
CustomerList.movenext
loop
'如果還沒有到最后一條則指針移動(dòng)到下一條。用Do While ... Loop循環(huán)逐一取得所有的記錄。
%>
</TABLE>
</CENTER>
<center>
<input type="button" onclick="javascript:location.href='add.html' " value="添加數(shù)據(jù)">
</center>
</BODY>
</HTML>
===================
所出現(xiàn)問題解決方法：
1.
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Dbpath '建立與數(shù)據(jù)庫的連接，與上同。
SQL="select * from customers Order By 公司名 DESC"
SET CustomerList=dbconnection.EXECUTE(sql)
%>
1).SQL="select * from customers Order By 公司名 DESC",當(dāng)中若字段名“公司名”寫錯(cuò)，如寫成“公司”，則出現(xiàn)如下錯(cuò)誤提示：
錯(cuò)誤類型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 參數(shù)不足，期待是 1。
/viewdatabase.asp, 第 6 行
把字段名改正與數(shù)據(jù)庫字段正確的字段名。這樣可正常顯示正確的信息，如在用到網(wǎng)路豬瀏覽器時(shí)，會(huì)無法顯示出默認(rèn)項(xiàng)的 add.html 頁面。原因不清楚
而在Mircrosoft Internet Explorer 和MyIe 以及火狐瀏覽器時(shí)可以正常顯示到預(yù)期結(jié)果。
2.
<%
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "customers", dbconnection, adOpenDynamic,3
%>
1).adOpenDynamic,3
當(dāng)以上的這個(gè)語句缺少時(shí)，將會(huì)得到以下結(jié)果：
錯(cuò)誤類型：
ADODB.Recordset (0x800A0CB3)
當(dāng)前記錄集不支持更新。這可能是提供程序的限制，也可能是選定鎖定類型的限制。
/adddatabase.asp, 第 26 行
這樣看來Recordset 設(shè)置值當(dāng)中， “adOpenDynamic,3” 同樣地不可缺少。當(dāng)然這當(dāng)中的“3”含義應(yīng)該是：當(dāng)前數(shù)據(jù)記錄只讀，可自由移動(dòng)。換成"2"也可以，而換成“1”或者不用，將不能正常顯示預(yù)期結(jié)果
會(huì)顯示成如上邊的錯(cuò)誤類型：
ADODB.Recordset (0x800A0CB3)
當(dāng)前記錄集不支持更新
==========================================================
摘錄： sql="select * from 用戶 where 賬號(hào)='"&zh&"' or 姓名='"&name&"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
1，1是一般的查詢！3，3是可以分頁的！2，2我沒用過！
===============================================
聯(lián)系客服
