【正文】 錄；還是大量科研數(shù)據(jù)的記錄和處理，人們都可以利用它來解決大量數(shù)據(jù)的管理工作。它之所以被集成到 Office 中而不是 Visual Studio 中，是因為它與其他的數(shù)據(jù)庫管理系統(tǒng)（如 Visual FoxPro）相比更加簡單易學，一個普通的計算機用戶即可掌握并使用它。而且最重要的一 點是， Access 的功能足夠強大，足以應(yīng)付一般的數(shù)據(jù)管理及處理需要，當然，配上合適的數(shù)據(jù)訪問手段，它也能多用戶，多線程的訪問。它對于訪問量及數(shù)據(jù)量不是太大的系統(tǒng)，尤其是桌面數(shù)據(jù)庫系統(tǒng)的開發(fā)很具優(yōu)勢，而且從它升級到 SQL Server（微軟的另一專業(yè)數(shù)據(jù)庫產(chǎn)品）比較容易。本系統(tǒng)軟件是基于 Access 2021 開發(fā)的。 ．網(wǎng)站總體設(shè)計 ．網(wǎng)站層次概況圖 公司網(wǎng)站系統(tǒng)分為兩個子系統(tǒng)：客戶系統(tǒng)和后臺系統(tǒng)，其功能如圖 1 所示。 圖 — 1企業(yè)網(wǎng)站系統(tǒng) 功能模塊劃分圖 ．系統(tǒng)模塊設(shè)計 用戶模塊 (1) 瀏覽模塊。包括瀏覽公司首頁、公司簡介、資格認證、公司新聞、留言板等內(nèi)容。 (2) 發(fā)表留言。為用戶提供發(fā)表留言的功能。 (3) 瀏覽新聞。為用戶提供瀏覽信息新聞的功能。 管理模塊 (1) 管理員登錄。管理員要進行管理操作，必須先進行登錄。 (2) 新聞管理。對新聞進行增加、刪除、修改操作。 (3) 留言管理。對留言進行刪除、修改操作。 (4) 產(chǎn)品管理。對產(chǎn)品進行查看、刪除操作。 ．數(shù)據(jù)庫設(shè)計 根據(jù)系統(tǒng)功能設(shè)計的要求以及功能模塊的 劃分，對于系統(tǒng)用戶信息數(shù)據(jù)庫，可以列出以下數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)。 公司網(wǎng)站系統(tǒng) 客戶系統(tǒng) 后臺管理系統(tǒng) 瀏覽公司首頁模塊 瀏覽公司簡介模塊 瀏覽公司榮譽模塊 瀏覽公司新聞模塊 在線留言模塊 瀏覽銷售網(wǎng)絡(luò)模塊 瀏覽聯(lián)系我們模塊 新聞管理 產(chǎn)品管理 留言管理 查看留言模塊 簽寫留言模塊 增加新聞模塊 修改新聞模塊 刪除新聞模塊 查看產(chǎn)品模塊 刪除產(chǎn)品模塊 回復留言模塊 修改留言模塊 刪除留言模塊 (1)．名稱：管理員數(shù)據(jù)表 標識： admin. 如表 1所示，管理員數(shù)據(jù)表包括 id 、 name 和 passwd3 個字段。 表 1 名稱 字段名稱 類型 主鍵 非空 數(shù)據(jù)長度 管理員編號 ID 自動編號 yes yes 4 管理員登錄名 name 文本 no yes 10 管理員密碼 passwd 文本 no yes 10 (2)．名稱：新聞發(fā)布數(shù)據(jù)表 標識： news 如表 2所示，新聞數(shù)據(jù)包括 id、 title、 cont 和 time 4 個字段。 表 2 名稱 字段名稱 類型 主鍵 數(shù)據(jù)長度 非空 新聞編號 id 自動編號 yes 4 yes 新聞標題 title 文本 no 50 yes 新聞內(nèi)容 cont 注釋 no 10000 yes 發(fā)布時間 time 日期時間 no 4 yes (3)．名稱：留言板數(shù)據(jù)表 標識： bbs 如表 3 所示，留言板數(shù)據(jù)包括 id、 name、 cont、 tell、 、 time、 recont和 homepage 8 個字段。 表 3 名稱 字段 類型 主鍵 數(shù)據(jù)長度 非空 留言編號 id 自動編號 yes 4 yes 留言者姓名 name 文本 no 4 yes 留言內(nèi)容 cont 注釋 no 1000 yes 留言者電話 tell 文本 no 11 yes 留言時間 time 日期時間 no 4 yes 留言者主頁 homepage 文本 no 20 yes 留言回復內(nèi)容 recont 注釋 no 1000 yes 留言者 Emai emai 文本 no 20 yes (4)．名稱：報名數(shù)據(jù)表 標識： baoming 如表 4 所示，報名數(shù)據(jù)表包括 id、 name、 zhuanye、 add、 tell 和 yixiang6個字段。 表 4 名稱 字段 類型 主鍵 非空 報名編號 id 自動編號 yes yes 報名者姓名 name 文本 no yes 所報專業(yè) zhuanye 文本 no yes 報名者家庭住址 add 文本 no yes 報名者電話 tel 文本 no yes 學習意向 yixiang 文本 no yes ．詳細設(shè)計 ．網(wǎng)站整體設(shè)計 圖 — 2 網(wǎng)站整體框架 設(shè)計要點： (1) 由于網(wǎng)站是在 1024*768 分辨率環(huán)境下做出的，為了適應(yīng) 800*600 分辨率，左右部分都留出了適當?shù)木嚯x。 (2)網(wǎng)站 banner 條和導航條是由 Flash 效果，是由 Macromedia174。 Flash? MX 2021 做出的。 (3)網(wǎng)頁布局進行整體規(guī)劃 ,即使用 HTML 中的 table 標簽 (4)背景顏色設(shè)置： body topmargin=0 bgcolor=808000 ．新聞發(fā)布系統(tǒng)設(shè)計 新聞發(fā)布系統(tǒng)流程圖 圖 — 3新聞發(fā)布系統(tǒng)數(shù)據(jù)流程圖 news 表設(shè)計 圖 — 4new 表設(shè)計圖 （ 1） cont 設(shè)計成備注類型的這樣最多可以容納 65535 個字符。 （ 2） time 默認值要設(shè)成 date()，如圖： 新聞發(fā)布系統(tǒng) 管理員 新聞發(fā)布頁面 數(shù)據(jù)庫 后臺部分 修改新聞 刪除新聞 ① ① ① ① 網(wǎng)站首頁 全部新聞標題頁面 詳細新聞頁面 ① ： 數(shù)據(jù)庫驅(qū)動程序 前臺部分 圖 — 5設(shè)置字段 time 后臺新聞頁面設(shè)計 (1) 圖 — 6新聞發(fā)布頁面 ①此頁面用來添加新聞，當管理員登錄后，點擊導航欄中的發(fā)布新聞，就可以顯示本頁。這里用到了超鏈接和框架： a href=news/ target=mainFrame發(fā)布新聞 /a； a./a是超鏈接標簽， target=mainframe表示所鏈接的網(wǎng)頁在框架 中顯示。 ②當管理員添加完新聞后，單擊確定，通過數(shù)據(jù)庫驅(qū)動程序新聞就添加到數(shù)據(jù)庫中，并在顯示頁面中顯示。 (2) 圖 — 7編輯新聞頁面 本頁是用來確定對哪條新聞進行哪種操作。首先讀取所有新聞，然后根據(jù)需要向刪除（ ）或修改（ ）頁面?zhèn)鬟f需要編輯的新聞的編號。 (3) 圖 — 8修改新聞頁面 通過 傳遞來的新聞編號，顯示需要修改的新聞內(nèi)容。管理員可以對新聞標題和內(nèi)容進行修改。 (4) 圖 — 9刪除新聞頁面 通過 傳遞來的新聞編號，顯示需要刪除的新聞內(nèi)容。單擊確定實現(xiàn)新聞的刪除。 顯示頁面設(shè)計 (1) ①為了保證首頁的風格，新聞在首頁的顯示條目為 8 條，并且是以時間到續(xù)方式來讀取的： SELECT * FROM news ORDER BY 編號 DESC ②單擊新聞進入詳細新聞界面： A HREF=news/?%= (MM_keepNone) amp。 MM_joinChar(MM_keepNone) amp。 編號 = amp。 (編號).Value %%=((title).Value)%/A ③向 頁面?zhèn)鬟f新聞編號。 (2) ①顯示公司的全部新聞標題 ②用到了分頁功能，根據(jù)頁面的布局設(shè)置每頁為 18條 ③向 頁面?zhèn)鬟f新聞編號。 (3) 圖 — 10詳細新聞顯示頁 面 接收來自 index 和 allnews 頁面?zhèn)鬟f來的新聞編號，顯示具體新聞的詳細內(nèi)容。 ．在線報名系統(tǒng)設(shè)計 報名系統(tǒng)數(shù)據(jù)流程圖 圖 — 11產(chǎn)品添加系統(tǒng)數(shù)據(jù)流程圖 報名系統(tǒng)表設(shè)計 圖 — 14在線報名系統(tǒng)數(shù)據(jù)表 產(chǎn)品添加系統(tǒng)前臺頁面 () 產(chǎn)品添加頁面 數(shù)據(jù)庫 刪除產(chǎn)品頁面 管理員 ① ① ① ： 數(shù)據(jù)庫驅(qū)動程序 用戶 查看產(chǎn)品頁面 圖 — 15產(chǎn)品添加頁面 想通過網(wǎng)站報名的用戶用此頁面來填寫自己的基本資料，填寫好的數(shù)據(jù)將寫入數(shù)據(jù)庫。并在后頁面 ()中顯示供管理員來查 看。 產(chǎn)品添加系統(tǒng)后臺管理頁面 （ 1）查看產(chǎn)品頁面 () 圖 — 16前臺查看頁面 ① 分頁顯示報名者的記錄 ② 向 頁面?zhèn)鬟f要刪除的報名記錄的編號 （ 2）刪除報名頁面 圖 — 17后臺刪除頁面 顯示通過 傳遞來的報名編號的報名者的資料，可以對這條記錄進行刪除。 ．在線留言系統(tǒng)設(shè)計 留言系統(tǒng)數(shù)據(jù)流程圖 留言系統(tǒng)數(shù)據(jù)表設(shè)計 圖 — 19留言系統(tǒng)數(shù)據(jù)表 顯示留言 頁面 (chat/) 查看留言頁面 發(fā)表留言頁面 數(shù)據(jù)庫 用戶 管理員 修改留言頁面 刪除留言頁面 ① ① ① ① ① ： 數(shù)據(jù)庫驅(qū)動程序 圖 — 18留言系統(tǒng)數(shù)據(jù)流程圖 回復留言頁面 ① 圖 — 20留言系統(tǒng)留言顯示頁面 ①分頁顯示用戶的留言 ②鏈接其它頁面 此頁面是用戶用來發(fā)表留言的，在用戶填寫好留言后，數(shù)據(jù)將會寫入數(shù)據(jù)庫，并在 chat/ 中顯示。 留言管理頁面 (1) 回復留言頁面 管理員可以用此頁面對客戶提出的問題進行回復。 (2) 修改留言頁面 () 圖 — 23留言系統(tǒng)修改留言頁面 ①修改編號為由 (管理員 )傳遞來的新聞 ②管理員可以通過此頁面對留言 中存在的一些基本的錯誤進行修改。 （ 3）刪除留言（ ） ①刪除編號為由 (管理員 )傳遞來的新聞。 ②刪除過時留言或惡意留言內(nèi)容。 ．網(wǎng)頁關(guān)鍵代碼： 數(shù)據(jù)庫連接 使用 ODBC 驅(qū)動程序?qū)?shù)據(jù)庫創(chuàng)建連接 % Dim MM_xxnew_STRING MM_xxnew_STRING = Driver={Microsoft Access Driver (*.mdb)}。DBQ=amp。(db/) % 登錄檢驗代碼： 管理員登錄后建立 session變量 Session(admin)=username 權(quán)限的合法驗證 % Function checkPermission() If Session(admin) then checkPermission=TRUE Else checkPermission=FALSE End if End Function tmpadmin=checkPermission() If tmpadminTRUE then ? /如果不能通過驗證，轉(zhuǎn)到頁面 End if % 創(chuàng)建記錄集代碼： % Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = () = MM_xxnew_STRING = SELECT * FROM news ORDER BY id DESC = 0 = 2 = 1 () Recordset1_numRows = 0 % 添加代碼： Recordset1 (title)=title Recordset1 (content)=content 更新代碼： sql=update from Vote where ID=傳遞來的參數(shù) sql 刪除代碼： sql=delete from Vote where ID=傳遞來的參數(shù) sql 關(guān)閉記錄集 % () Set Recordset1 = Nothing % 分頁顯示代碼： % Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 Recordset1_numRows = Recordset1_n