補(bǔ)充一點(diǎn)，如果一段代碼在好幾個(gè)文件里都有使用到，那么可以把這段代碼單獨(dú)放在一個(gè)文件里，需要使用時(shí)，把這個(gè)文件包含進(jìn)來(lái)即可。這里說(shuō)的是include包括，以后會(huì)講到過(guò)程SUB調(diào)用。

例：連接數(shù)據(jù)庫(kù)代碼

<%
dim conn 
dim connstr
connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '創(chuàng)建數(shù)據(jù)庫(kù)連接對(duì)象
conn.open connstr '連接數(shù)據(jù)庫(kù)
%>

新建一個(gè)文件名為：conn.asp 把以上代碼保存，在需要使用時(shí)，在文件的頂部加入：<!--#include file="conn.asp"--> 即可調(diào)用！

1.對(duì)數(shù)據(jù)庫(kù)進(jìn)行刪除操作

直接修改一下讀取數(shù)據(jù)庫(kù)的文件index.asp ，在讀取的每條記錄后面加個(gè)兩個(gè)鏈接"刪除","編輯"。

在刪除這兒，鏈接到delete.asp ，這個(gè)文件將處理刪除操作。首先程序要知道刪除的是哪條記錄，那么刪除的鏈接這兒就需要跟上一個(gè)參數(shù)，這里我們跟一個(gè)自動(dòng)編號(hào)ID ，這個(gè)是記錄的唯一標(biāo)識(shí)，即不會(huì)有重復(fù)的。如： <a href="delete.asp?id=<%=rs("id")%>">刪除</a>
在delete.asp文件里就要用前面講到的request.querystring方法來(lái)獲取這個(gè)ID的值。如：id=request.querystring("id"),得到要?jiǎng)h除的ID后，對(duì)數(shù)據(jù)庫(kù)進(jìn)行刪除操作，代碼：conn.execute("delete from [company] where id="&id&"")  刪除后，我們這里自動(dòng)返回到讀取數(shù)據(jù)庫(kù)的頁(yè)面，response.redirect("index.asp") ，刪除功能完成。全部代碼請(qǐng)查看壓縮包里的delete.asp文件

2.對(duì)數(shù)據(jù)庫(kù)進(jìn)行編輯操作

編輯操作比刪除操作就更復(fù)雜了。包含了讀取數(shù)據(jù)庫(kù)的操作。同刪除操作一樣，"編輯"的鏈接也必須跟上一個(gè)ID以讓程序知道需要修改的是哪條數(shù)據(jù)。如：<a href="edit.asp?id=<%=rs("id")%>">編輯</a> ，在edit.asp文件里，就必須先讀取出這條記錄的值，讓用戶來(lái)修改他的數(shù)據(jù)內(nèi)容。格式如同index.htm里一樣，一個(gè)提交表單，只不過(guò)這兒的表單值是直接讀取數(shù)據(jù)庫(kù)里該條記錄的內(nèi)容。然后這兒用戶可以修改所有文本框的值，在<form>里，提交到editsave.asp這個(gè)文件里，這個(gè)文件將處理更新數(shù)據(jù)庫(kù)操作。同時(shí)這個(gè)form表單的 action里，也必須跟上id值，如：action="editsave.asp?id="&id&""  ，在editsave.asp里request.form("id")得知要更新的記錄ID值

更新數(shù)據(jù)庫(kù)：這里有兩種寫法，一種是建立記錄集recordset ，另一種是直接用SQL語(yǔ)法update來(lái)操作。

第一種：
id=request.Form("id"))
companyname=request.form("companyname") '把文本框companyname的值賦于變量companyname
tel=request.form("tel") '把文本框tel的值賦于變量tel
address=request.form("address") '把文本框address的值賦于變量address
website=request.form("website") '把文本框website的值賦于變量website
set rs=server.CreateObject("adodb.recordset") '創(chuàng)建rs記錄集
sql="select * from [company] where id="&id&"" '讀取數(shù)據(jù)庫(kù)的SQL語(yǔ)句串
rs.open sql,conn,3,3 '打開(kāi)記錄集 ，當(dāng)需要對(duì)數(shù)據(jù)庫(kù)進(jìn)行更新操作時(shí)，用3,3，如果只需要讀取數(shù)據(jù)庫(kù)，用1,1 這個(gè)以后會(huì)解釋。
rs("companyname")=companyname '把變量companyname的值寫入到companyname的字段中
rs("tel")=tel '把變量tel的值寫入到tel的字段中
rs("address")=address '把變量address的值寫入到address的字段中
rs("website")=website '把變量website的值寫入到website的字段中
rs.update '更新數(shù)據(jù)庫(kù)
rs.close '關(guān)閉記錄集
set rs=nothing '清空記錄集

這段代碼相比新增記錄，少了一句rs.addnew即可。

第二種：相比來(lái)說(shuō)，第二種寫法更簡(jiǎn)單一些，但可讀性第一種更清晰。

conn.execute("update [company] set companyname='"&companyname&"',tel='"&tel&"',address='"&address&"',website='"&website&"' where id="&id&"")
最后別忘了更新好數(shù)據(jù)庫(kù)后返回到讀取數(shù)據(jù)庫(kù)頁(yè)面index.asp