【正文】 ((MM_item)) End If Next MM_keepBoth = MM_keepURL amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm amp。 amp。 MM_nextItem amp。 MM_item amp。 = End If MM_keepURL= MM_keepForm= MM_keepBoth= MM_keepNone= For Each MM_item In MM_nextItem = amp。 amp。index= If (MM_paramName ) Then MM_removeList = MM_removeList amp。(db/) % 登錄檢驗代碼： 管理員登錄后建立 session 變量 Session(admin)=username 權限的合法驗證 % Function checkPermission() If Session(admin) then checkPermission=TRUE Else checkPermission=FALSE End if End Function tmpadmin=checkPermission() If tmpadminTRUE then ? /如果不能通過驗證，轉到頁面 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 關閉記錄集 % () Set Recordset1 = Nothing % 分頁顯示代碼： % Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows % % If And Then % div align=center暫時沒有提交信息！ /div % End If % % While ((Repeat1__numRows 0) AND (NOT )) % % If Not Or Not Then % 要顯示的內容部分 ……… % End If% % Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows1 () Wend % p 目前共有 %=%條記錄 從第 %=(Recordset1_first)%條到第 %=(Recordset1_last)%條 /p p A HREF=%=MM_moveFirst%第一頁 /A A HREF=%=MM_movePrev%前一頁 /A A HREF=%=MM_moveNext%后一頁 /A A HREF=%=MM_moveLast%最后一頁 /A /p 包含文件代碼： 通過包含文件可以方便的對網頁進行管理操作： !include file=文件路徑 空格輸出問題的解決 在 head/head中加入代碼： SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT function DoWhiteSpace(str) DoWhiteSpace = Replace((Replace(str, vbCrlf, br)), chr(32)amp。 ．網頁關鍵代碼： 數(shù)據(jù)庫連接 使用 ODBC驅動程序對數(shù)據(jù)庫創(chuàng)建連接 % Dim MM_xxnew_STRING MM_xxnew_STRING = Driver={Microsoft Access Driver (*.mdb)}。 （ 3）刪除留言（ ） ①刪除編號為由 (管理員 )傳遞來的新聞。 留言管理頁面 (1) 回復留言頁面 管理員可以用此頁面對客戶提出的問題進行回復。 產品添加系統(tǒng)后臺管理頁面 （ 1）查看產品頁面 () 圖 — 16前臺查看頁面 ③ 分頁顯示報名者的記錄 ④ 向 頁面?zhèn)鬟f要刪除的報名記錄的編號 （ 2）刪除報名頁面 圖 — 17后臺刪除頁面 顯示通過 傳遞來的報名編號的報名者的資料，可以對這條記錄進行刪除。 ．在線報名系統(tǒng)設計 報名系統(tǒng)數(shù)據(jù)流程圖 圖 — 11產品添加系統(tǒng)數(shù)據(jù)流程圖 報名系統(tǒng)表設計 圖 — 14在線報名系統(tǒng)數(shù)據(jù)表 產品添加系統(tǒng)前臺頁面 () 產品添加頁面 數(shù)據(jù)庫 刪除產品頁面 管理員 ① ① ① ： 數(shù)據(jù)庫驅動程序 用戶 查看產品頁面 圖 — 15產品添加頁面 想通過網站報名的用戶用此頁面來填寫自己的基本資料，填寫好的數(shù)據(jù)將寫入數(shù)據(jù)庫。 (2) ①顯示公司的全部新聞標題 ②用到了分頁功能，根據(jù)頁面的布局設置每頁為 18 條 ③向 頁面?zhèn)鬟f新聞編號。 編號 = amp。 顯示頁面設計 (1) ①為了保證首頁的風格，新聞在首頁的顯示條目為 8條，并且是以時間到續(xù)方式來讀取的： SELECT * FROM news ORDER BY 編號 DESC ②單擊新聞進入詳細新聞界面： A HREF=news/?%= (MM_keepNone) amp。 (4) 圖 — 9刪除新聞頁面 通過 傳遞來的新聞編號，顯示需要刪除的新聞內容。 (3) 圖 — 8修改新聞頁面 通過 傳遞來的新聞編號，顯示需要修改的新聞內容。 (2) 圖 — 7編輯新聞頁面 本頁是用來確定對哪條新聞進行哪種操作。這里用到了超鏈接和框架： a href=news/ target=mainFrame發(fā)布新聞 /a； a./a是超鏈接標簽， target=mainframe表示所鏈接的網頁在框架中顯示。 (3)網頁布局進行整體規(guī)劃 ,即使用 HTML 中的 table 標簽 (4)背景顏色設置： body topmargin=0 bgcolor=808000 ．新聞發(fā)布系統(tǒng)設計 新聞發(fā)布系統(tǒng)流程圖 圖 — 3新聞發(fā)布系統(tǒng)數(shù)據(jù)流程圖 news 表設計 圖 — 4new 表設計圖 （ 1） cont 設計成備注類型的這樣最多可以容納 65535 個字符。 (2)網站 banner 條和導航 條是由 Flash 效果，是由 Macromedia174。 表 3 名稱 字段 類型 主鍵 數(shù)據(jù)長度 非空 留言編號 id 自動編號 yes 4 yes 留言者姓名 name 文本 no 4 yes 留言內容 cont 注釋 no 1000 yes 留言者電話 tell 文本 no 11 yes 留言時間 time 日期時間 no 4 yes 留言者主頁 homepage 文本 no 20 yes 留言回復內容 recont 注釋 no 1000 yes 留言者 Emai emai 文本 no 20 yes (4)．名稱：報名數(shù)據(jù)表 標識： baoming 如表 4 所示，報名數(shù)據(jù)表包括 id、 name、 zhuanye、 add、 tell 和 yixiang6個字段。 表 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 個字段。 ．數(shù)據(jù)庫設計 根據(jù)系統(tǒng)功能設計的要求以及功能模塊的劃分，對于系統(tǒng)用戶信息數(shù)據(jù)庫，可以列出以下數(shù)據(jù)項和數(shù)據(jù)結構。 (4) 產品管理。 (3) 留言管理。 (2) 新聞管理。 管理模塊 (1) 管理員登錄。 (3) 瀏覽新聞。 (2) 發(fā)表留言。 圖 — 1企業(yè)網站系統(tǒng)功能模塊劃分圖 ．系統(tǒng)模塊設計 用戶模塊 (1) 瀏 覽模塊。本系統(tǒng)軟件是基于 Access 2020 開發(fā)的。而且最重要的一點是， Access 的功能足夠強大，足以應付一般的數(shù)據(jù)管理及處理需要 ，當然，配上合適的數(shù)據(jù)訪問手段，它也能多用戶，多線程的訪問。不管是處理公司的客戶定單數(shù)據(jù)；管理自己的個人通訊錄；還是大量科研數(shù)據(jù)的記錄和處理，人們都可以利用它來解決大量數(shù)據(jù)的管理工作。自從 1992 年開始銷售以來，Access 已經賣出了超過 6000萬分，現(xiàn)在它已經成為世界上最流行的桌面數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫根據(jù)結構可以分為文件型數(shù)據(jù)庫和 C/S 型數(shù)據(jù)庫。目前數(shù)據(jù)庫的發(fā)展方向是面向對象的數(shù)據(jù)庫系統(tǒng)。 ．數(shù)據(jù)庫開發(fā)環(huán)境 數(shù)據(jù)庫系統(tǒng)的發(fā)展經歷了層次模型數(shù)據(jù)庫、網狀模型數(shù)據(jù)庫和關系數(shù)據(jù)庫3個大的發(fā)展階段。 在站點內添加虛擬，目錄的步驟： 右擊 “ 默認 Web 服務器 ” ——新建 ——虛擬目錄 ——確定 ——下一步 ——在彈出的對話框中填上虛擬目錄的名稱（如： movie） ——下一步 ——在彈出的對話框中選擇虛擬目錄的路徑（如： D:\movie） ——下一步 ——設置虛擬目錄的權限 ——完成。這里只介紹對它的配置說明 ① 開始 ——程序 ——管理工具 ——Inter 服務器早管理，在 “ 默認 Web服務 ” 上右擊鼠標，選擇 “ 屬性 ” ，在主目錄的面板中，設置主站點的目錄路徑，并選擇適當?shù)倪x項。為了方便調試，可以選中 “允許瀏覽目錄 ”的選項。為了能夠使站點內容能夠被 PWS解釋，用虛擬目錄使 Home 指向站點目錄。 圖 ASP 的體系結構 PWS 的安裝步驟： 執(zhí)行安裝界面 ——“ 下一步 ” ——“ 添加 /刪除 ” 項 ——選擇安裝 ——“ 確定 ” ——完成安裝。 3） ASP 調試環(huán)境的安裝和配置 （ 1） Windows 9X+PWS 的安裝和配置 調試 ASP 程序，必須有一個能夠解釋 ASP 的服務器環(huán)境。 從軟件的技術層面看， ASP 有如下的特點： ⑴ 無須編譯 ； ⑵ 使用常規(guī)文本編輯器（如 Windows 下的記事本），即可進行 *.asp 頁面的設計 ； ⑶ 獨立于瀏覽器 ； ⑷ 面向對象 ； ⑸ 與任何 ActiveX scripting 語言兼容 ； ⑹ 源程序碼不會外漏 。 ASP 程序中可以包含純文本、 HTML 標記以及腳本命令。 ASP 是一種 IIS 專用技術，它是用來增強基于Web的應用程序服務的功能和可靠性的， ASP 是 Inter Information Server的一部分，它使 Web 開發(fā)人員能直接將基于腳本的應用程序嵌入到 HTML 頁面 。ASP本身封裝了一些基本組件和常用組件。 ActiveX 技術是現(xiàn)在 Microsoft 軟件的重要基礎。它本身并不是一種腳本語言，它只是提 供了一種使鑲嵌在 HTML 頁面中的腳本程序得以運行的環(huán)境。利用 ASP 可以輕松地結合 HTML Web 頁面、腳本（ Script）程序和 ActiveX 組件建立或執(zhí)行動態(tài)交互 Web 服務器應用程序。 ASP 是用服務器端腳本、對象和組件擴展了的標準 HTML 頁。作者選擇了比較方便的 ASP技術。 ．開發(fā)環(huán)境的選擇 ．后臺開發(fā)環(huán)境 1．隨著 Inter 的普及和深入，傳統(tǒng)的靜態(tài)網頁已經不能滿足人們日益增長的獲取信息的需求，在這種情況下，能夠實現(xiàn)交互式的動態(tài)網頁技術應運而生。 Flash MX 2020 用于開發(fā)豐富多彩的 Inter 內容和應用程序的解決方案。經由專業(yè)化的控制、更為快捷的性能以及完美的集成，自如地掌控圖形開發(fā)。 Fireworks174。