個(gè)人做的asp操作access數(shù)據(jù)庫實(shí)例，主要模塊為產(chǎn)品添加和產(chǎn)品查詢。主要有三個(gè)頁面，包括表單提交與查詢頁面、產(chǎn)品添加asp腳本頁面、產(chǎn)品查詢asp腳本。
form.htm的代碼如下：
<body>
<p>產(chǎn)品添加模塊：</p>
<hr />
<form action="add.asp" method="post" enctype="" name="chanpin" target="_self">
<div>
<br />產(chǎn)品代號(hào)：<input name="productNum" type="text" size="20" maxlength="30" /><br /><br />
產(chǎn)品名稱：<input name="productName" type="text" size="20" maxlength="30" /><br /><br />
產(chǎn)品描述：<!--<input name="productDescribe" type="hidden" value="" /> -->
<br /><br />
<textarea name="productdescribe" cols="50" rows="10"></textarea>
<br /><br />
產(chǎn)品價(jià)格：<input name="productPrice" type="text" value="" /><br /><br />
<input name="addProduct" value="產(chǎn)品入庫" type="button" onclick="javascript:submit();return true;" />
<hr />
</div>
</form>
<p>產(chǎn)品查看模塊：</p>
<form action="chanp.asp" method="post">
<div>
<hr />
<input name="select" type="submit" value="查詢" />
</div>
</form>
</body>
</html>
--------------------------------------------------------------------------------
產(chǎn)品添加腳本add.asp的代碼：
<body>
正在提交的產(chǎn)品：<br />
<%
dim productNum,productName,productdescribe,productPrice,recordTime
productNum=request.Form(1)
productName=request.Form(2)
productdescribe=request.Form(3)
productPrice=request.Form(4)
recordTime=now
'for i=1 to request.Form.count
' response.Write(request.form(i)&"<br />")
'next
On Error Resume Next
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
dbpath=Server.MapPath("test.mdb")
conn.Open dbpath
set rs = Server.CreateObject("ADODB.recordset")
sql="insert into chanpin(產(chǎn)品代號(hào),產(chǎn)品名稱,產(chǎn)品描述,產(chǎn)品價(jià)格,記錄日期) values('"&productNum&"','"&productName&"','"&productdescribe&"','"&productPrice&"','"&recordTime&"')"
rs.Open sql, conn
response.Write("<br>產(chǎn)品代號(hào)："&productNum&"<br>產(chǎn)品名稱："&productName&"<br>產(chǎn)品描述："&productdescribe&"<br>產(chǎn)品價(jià)格："&productPrice&"<br>產(chǎn)品提交時(shí)間："&recordTime)
' response.Write("<br><font color='red'>產(chǎn)品添加成功<font>")
set rs=nothing
set conn=nothing
if err<>0 then
response.Write("<br><font color='red'>產(chǎn)品添加失敗<font>")
else
response.Write("<br><font color='green'>產(chǎn)品添加成功<font>")
end if
%>
</body>
</html>
產(chǎn)品查詢的腳本select.asp的代碼：
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
dbpath=Server.MapPath("test.mdb")
conn.Open dbpath
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT * FROM chanpin"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
