您的網站（zhàn）是否仍一如既往地（dì）保持“靜態”？目（mù）前呈幾何增長的互聯網網（wǎng）站（zhàn）中，有相當一部分（fèn）仍固（gù）守“靜態”，無形中已大（dà）大落後於時代（dài）的步伐。所謂（wèi）“靜態”指的就是網站（zhàn）的網頁（yè）內容“固定不變”，當用戶瀏覽器通過互聯網的HTTP協議向（xiàng）WEB服務器請求提供網頁內容時，服務器僅僅是將原已設計好的靜（jìng）態HTML文檔傳送給用戶瀏覽器。其頁麵的（de）內容使用的僅僅是標準的HTML代（dài）碼，最多再加上流行的GIF89A格（gé）式的動態圖片，比如（rú）產（chǎn）生幾（jǐ）隻（zhī）小狗小貓跑來跑（pǎo）去的動畫效果。若網站維護者要更新網頁的內容，就必（bì）須手動地來更新其所有的（de）HTML文檔。

　　“靜態”網站的致命弱點就是不易維護，為了不斷更新網頁內容，你必須不（bú）斷地重複製作HTML文（wén）檔，隨著網站內容（róng）和信（xìn）息量的（de）日益（yì）擴增，你就會感到工（gōng）作量大得出（chū）乎想象。

　　一般來說，一（yī）個真正（zhèng）的、完（wán）整的（de）站點是離不開數據庫的，因（yīn）為實際應用（yòng）中，需要保存的數據很多，而且這些數據之間往往還有關聯，利用數據庫（kù）來管理這些數據，可以很方便的查（chá）詢和更新。數（shù）據庫有很多種（zhǒng），如：Fox 數據庫(.dbf)、Access 數據庫(.mdb)、Informix、Oracle 和 SQL Server 等等，在這裏，我將日前整理好的ASP是如何訪（fǎng）問Access數據庫的資料拿出來和大家分享一下。

常用（yòng）數據庫語句（jù）

　　1.SELECT 語句：命令數據庫（kù）引擎從數據（jù）庫裏返回信息，作為一（yī）組記（jì）錄。
　　2.INSERT INTO 語句：添加一個或（huò）多個記錄至一個表。
　　3.UPDATE 語（yǔ）句：創建更新查詢來（lái）改變基（jī）於特定準則的指定表中的字段值。
　　4.DELETE 語句：創建一個刪除查詢把記錄從 FROM 子句列出並符合 WHERE 子句的一個或更多的表中清除。
　　5.EXECUTE 語句：用於激活 PROCEDURE（過程）

用 ASP 來做一個自己的（de）通訊錄練練手吧……

一、建立數據庫：

　　用 Microsoft Access 建立一個名（míng）為 data.mdb 的空數據庫，使用設（shè）計器創（chuàng）建一個新表。輸入（rù）以（yǐ）下（xià）幾個字段：

　　字（zì）段（duàn）名稱　　數據類型　　說明　　　　　　其它（tā）
　　ID　　　　　自動編號（hào）　　數據標識　　　　字段大（dà）小（xiǎo）：長（zhǎng）整型　新值：遞增　索（suǒ）引：有（無重複）
　　username　　文本　　　　姓名　　　　　　缺省值
　　usermail　　文本　　　　E-mail　　　　　缺省值
　　view　　　　數字　　　　查看次數　　　　字段大小：長整（zhěng）型　默認（rèn）值：0　索引：無
　　indate　　　時間日（rì）期（qī）　　加入時間　　　　缺省值

　　保存為 data.mdb 文件，為了便於說明，隻是做了一個比較（jiào）簡（jiǎn）單的庫。

二（èr）、連接數據（jù）庫

　　方（fāng）法1：
　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　方法2：
　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")

　　注意：一個頁麵中（zhōng），隻要連接一次就可以了，數據庫使用完後要及時（shí）關閉連接（jiē）。
　　conn.Close
　　Set conn = Nothing

三、添加（jiā）新記錄到數據庫

　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　username = "風雲突變（biàn）"
　　usermail = "ec0705liujuan@163.com"
　　indate = Now()

　　sql = "insert into data (username,usermail,indata) values('"&username&"','"&usermail&"','"&indate&"')"
　　conn.Execute(sql)

　　conn.Close
　　Set conn = Nothing

　　說（shuō）明：建立數據庫連接；通過（guò）表單獲取（qǔ）姓名、E-mail 字符串，Now()獲取當（dāng）前時間日期；使（shǐ）用 insert into 語句（jù）添加新記錄（lù）；conn.Execute 來執行；最後關閉。

四、選擇數據庫裏的記錄

　　1.選（xuǎn）擇所有記錄的字段（duàn）（按記錄倒序排序）：sql = "select * from data order by ID desc"
　　2.選（xuǎn）擇所（suǒ）有記錄的姓名和E-mail字段（不排序）：sql = "select username,usermail from data"
　　3.選擇姓（xìng）名為“風（fēng）雲突變”的所有記（jì）錄：sql = "select * from data where username='"風雲突變"'"
　　4.選擇使（shǐ）用（yòng） 163 信箱的所有記錄（按（àn）查看次數排序）：sql = "select * from data where usermail like '%"@163.com"%' order by view desc"
　　5.選擇最新的（de）10個（gè）記錄：sql = "select top 10 * from data order by ID desc"

　　SQL 語句已經知道了，不過（guò）在Web應（yīng）用時，還得創建一個 RecordSet 對象得到記錄集，才能把從數據庫裏取出的值應用在網頁上，如（rú）果現在將（jiāng）所有的記錄顯示在網頁上（shàng）就這樣：

　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　sql = "select * from data"
　　Set rs = Server.CreateObject("ADODB.RecordSet")
　　rs.Open sql,conn,1,1

　　Do While Not rs.Eof
　　　　Response.Write "<p>姓名："& rs("username") &"　E-mail："& rs("usermail") &"　查看（kàn）："& rs("view") &"次　"& rs("indate") &"加入（rù）</p>"
　　　　rs.MoveNext
　　Loop

　　rs.Close
　　Set rs = Nothing
　　conn.Close
　　Set conn = Nothing

　　說明：建立數據（jù）庫（kù）連接；創建 rs 得到記錄集；循環顯（xiǎn）示記錄，rs.Eof 表示記錄末，rs.MoveNext 表示移到下一個記錄；最後（hòu）關閉。

五、修改（更新）數據庫記錄

　　修改記錄的E-mail：

　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　ID = 1
　　usermail = "ec0705liujuan@163.com"

　　sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
　　conn.Execute(sql)

　　conn.Close
　　Set conn = Nothing

　　說明：建立（lì）數據（jù）庫連接；獲取記（jì）錄ID、新 E-mail 字符串；使用 update 語句修改記錄；conn.Execute 來執行（háng）；最後關閉。
　　如果使（shǐ）記錄的（de）查（chá）看值加（jiā）1，則（zé）：sql = "update data set view=view+1 where ID="&CInt(ID)

六、刪除數據庫記錄

　　刪除某一（yī）條記（jì）錄：

　　Set conn = Server.CreateObject("ADODB.Connection")
　　conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

　　ID = 1

　　sql = "delete from data where ID="&CInt(ID)
　　conn.Execute(sql)

　　conn.Close
　　Set conn = Nothing

　　說（shuō）明：建立（lì）數據庫連接；獲取記錄ID；使用