【正文】 ss：ID（自動(dòng)編號(hào)） 、類別名、類別編號(hào)。 創(chuàng)建數(shù)據(jù)庫(kù)新建一個(gè) Access 數(shù)據(jù)庫(kù)文件，命名為 。數(shù)據(jù)庫(kù)連接頁(yè)（Conn,asp）主代碼：db=Data/內(nèi)容標(biāo)題類別編號(hào)類別名……類別編號(hào)編輯內(nèi)容內(nèi)容信息內(nèi)容類別對(duì)應(yīng)1nSet Conn = ()connstr=Provider=。Data Source= amp。 (amp。dbamp。) connstr創(chuàng)建表和字段（1）管理員表（admin）管理員表（admin）保存了管理員的賬號(hào)和密碼。表 1 管理員表編 號(hào) 字 段 名 字 段 類 型 說 明1 id 自 動(dòng) 編 號(hào) （ 設(shè) 為 主 鍵 ） 管 理 員 id 號(hào)2 Name 文 本 管 理 員 賬 號(hào)3 Pwd 文 本 管 理 員 密 碼（ 2） 內(nèi) 容 信 息 表 （ newsinfo）內(nèi) 容 信 息 表 （ newsinfo） 保 存 了 內(nèi) 容 標(biāo) 題 、 編 輯 內(nèi) 容 、 類 別 編 號(hào) 、 添 加 /修 改 時(shí) 間 、 點(diǎn) 擊 率 和 內(nèi) 容 圖 片 等 。表 2 內(nèi) 容 信 息 表編 號(hào) 字 段 名 字 段 類 型 說 明1 Id 自 動(dòng) 編 號(hào) （ 設(shè) 為 主 鍵 ） 內(nèi) 容 id 號(hào)2 Title 文 本 內(nèi) 容 標(biāo) 題3 Content 備 注 編 輯 內(nèi) 容4 Class 數(shù) 字 類 別 編 號(hào)5 Time 日 期 /時(shí) 間 添 加 /修 改 時(shí) 間6 Click 數(shù) 字 點(diǎn) 擊 率7 Images 文 本 內(nèi) 容 圖 片（ 3） 內(nèi) 容 類 別 表 （ newsclass）內(nèi) 容 類 別 表 （ newsclass） 保 存 了 類 別 名 和 類 別 編 號(hào) 等 。表 3 內(nèi) 容 類 別 表編 號(hào) 字 段 名 字 段 類 型 說 明1 id 自 動(dòng) 編 號(hào) （ 設(shè) 為 主 鍵 ） 類 別 id 號(hào)2 Title 文 本 類 別 號(hào)3 Class 數(shù) 字 類 別 編 號(hào)6 基本模塊設(shè)計(jì) 數(shù)據(jù)庫(kù)連接頁(yè)頁(yè)名：功能：數(shù)據(jù)庫(kù)連接的基本信息。此頁(yè)面沒有任何 Html 代碼，也沒有任何 Asp 的輸出顯示，所以無(wú)法瀏覽。此代碼只是被其他連接數(shù)據(jù)庫(kù)的網(wǎng)頁(yè)調(diào)用。 公共版頁(yè)面頁(yè)名：功能： 、 和 頁(yè)面的公共頁(yè)面部分。此頁(yè)面包括整個(gè)系統(tǒng) Logo 和左側(cè)的公共頁(yè)面，無(wú)論我們目前處于哪個(gè)頁(yè)面，都可以通過這一頁(yè)面方便快捷的跳轉(zhuǎn)到我們想去的頁(yè)面，得到我們想要的信息。公共版頁(yè)面（）主代碼：% 39。在頁(yè)面上部顯示每個(gè)教學(xué)版塊名稱Set Rs = ()Sql=Select * From newsclass Sql,conn,3,3 Do While not 【a href=?action=listamp。newsclass= amp。 Rs(class) amp。 amp。 Rs(title) amp。 /a】LoopSet Rs=nothing%% 39。39。在頁(yè)面左側(cè)顯示每個(gè)教學(xué)版塊下的對(duì)應(yīng)的教學(xué)信息newsclass=Rs1(class)Set Rs2 = () Sql2=Select Top 5 * From newsinfo Where class=amp。newsclassamp。 Order by click Desc Sql2,conn,3,3If And Then ElseDo While not %% 39。在頁(yè)面左側(cè)的最下方顯示出信息總條數(shù)Set Rs = ()Sql=Select title From newsinfo Sql,conn,3,3 %% 39。在頁(yè)面左側(cè)的最下方顯示出信息類別數(shù)Set Rs = ()Sql=Select title From newsclass Sql,conn,3,3 % 公共教學(xué)頁(yè)頁(yè)名：功能：獲取服務(wù)端相對(duì)圖片路徑，上傳圖片和 unHtml 字體格式轉(zhuǎn)換。頁(yè)面制作：打開記事本，添加如下代碼：!include file=% 39。功能：取得服務(wù)端相對(duì)圖片路徑 39。參數(shù)：客戶端圖片路徑 39。返回值：圖片路徑 Function GetFileName(imagespath) If imagespath Then GetFileName=UpImages/ amp。year(now)amp。month(now)amp。day(now)amp。hour(now)amp。minute(now)amp。second(now)amp。Right(imagespath,4) Else GetFileName = End If End Function 39。功能：用 stream 組件上傳圖片 39。參數(shù)：客戶端圖片路徑 39。返回值：成功返回 1，失敗返回 0 Function upImages(imagespath) Set objStream = () = 1 39。 adTypeBinary imagespath (GetFileName(imagespath)),adSaveCreateOverWrite If 0 Then upImages = 0 Else upImages = 1 End If End Function 39。功能：將空格與回車符等轉(zhuǎn)換成 html 語(yǔ)法格式 39。參數(shù)：信息內(nèi)容 39。返回值：字符串中的空格與回車符被等轉(zhuǎn)換成 html 語(yǔ)法格式 Function unHtml(content) unHtml=content If content Then unHtml=replace(unHtml,amp。,amp。) unHtml=replace(unHtml,) unHtml=replace(unHtml,) unHtml=replace(unHtml,chr(34),) unHtml=replace(unHtml,chr(13),br) unHtml=replace(unHtml,chr(32), ) End If End Function%該頁(yè)中有 GetFileName、upImages、unHtml 3 個(gè)函數(shù)；由于沒有 html 代碼，所以次代碼無(wú)法瀏覽。 教學(xué)網(wǎng)站首頁(yè)頁(yè)名：功能：顯示所有內(nèi)容及部分內(nèi)容標(biāo)題。頁(yè)面制作：用 Dreamweaver 來首頁(yè)，首頁(yè)是我們的主要操作頁(yè)面，頁(yè)面是由公共版頁(yè)面和右下方的主操作區(qū)構(gòu)成，在主操作區(qū)用戶可以進(jìn)行所需信息的瀏覽。首頁(yè) () 主代碼:% 39。顯示教學(xué)的所屬教學(xué)類別名稱Dim newsclass2Set Rs1 = ()Sql1=Select class,title From newsclass Sql1,conn,3,3% % 39。在頁(yè)面右側(cè)顯示每個(gè)教學(xué)類別的名稱Dim newsclass1Set Rs1 = ()Sql1=Select class,title From newsclass Sql1,conn,3,3Do While not % 內(nèi)容標(biāo)題頁(yè)頁(yè)名：功能：顯示相應(yīng)內(nèi)容類別下的全部?jī)?nèi)容標(biāo)題。 頁(yè)名制作：用 Dreamveaver 來設(shè)計(jì)頁(yè)面風(fēng)格。該頁(yè)面也應(yīng)用了數(shù)據(jù)庫(kù)連接頁(yè)和版面公共頁(yè)，如下所示： !include file=””!include file=””此頁(yè)面主要為了顯示每一個(gè)具體版塊的標(biāo)題以及每個(gè)版塊里面所包括的所有內(nèi)容，最下面顯示了本版塊內(nèi)容的數(shù)字信息。內(nèi)容標(biāo)題頁(yè)（）主代碼：%Dim newsclassnewsclass=Request(newsclass)%% 39。顯示教學(xué)類別的名稱Set Rs1 = ()Sql1=Select title From newsclass Where class=amp。newsclassamp。 Sql1,conn,3,3 %%Set Rs1=nothing %% 39。顯示相應(yīng)教學(xué)類別下的所有教學(xué)標(biāo)題Dim i,jDim PageSet Rs = ()Sql=Select * From newsinfo Where class=amp。newsclassamp。 Order By id Desc Sql,conn,1,2If IsNumeric(Request(Page))=false Or Request(Page)= ThenPage=1ElsePage=CInt(Request(Page))End if=10 39。每頁(yè)顯示的教學(xué)條數(shù)If And Then ElsemyPageSize==PageDo While not And myPageSize0% 內(nèi)容信息顯示頁(yè)頁(yè)面：功能：顯示詳細(xì)內(nèi)容。 頁(yè)面：用 Dreamweaver 來設(shè)計(jì)內(nèi)容信息頁(yè)面風(fēng)格。 該頁(yè)面也應(yīng)用了數(shù)據(jù)庫(kù)連接頁(yè)和版面公共頁(yè)，如下所示： !include file=””!include file=””瀏覽者在教學(xué)網(wǎng)站首頁(yè)或內(nèi)容標(biāo)題頁(yè)上點(diǎn)擊相應(yīng)的信息后，進(jìn)入該頁(yè)面，在該頁(yè)面右側(cè)從上到下依次顯示該內(nèi)容信息所屬內(nèi)容的名稱、內(nèi)容標(biāo)題、添加/修改時(shí)間/點(diǎn)擊率，圖片和內(nèi)容信息。內(nèi)容信息顯示頁(yè)（）主代碼：% 39。顯示教學(xué)版塊的名稱Dim newsclass1newsclass1=Request(newsclass)Set Rs = ()Sql=Select title From newsclass Where class=amp。newsclass1amp。 Sql,conn,3,3 %%Set Rs=nothing %% 39。顯示每條教學(xué)的具體內(nèi)容Dim newsclass2Dim idnewsclass2= Request(newsclass)id = Request(id)Set Rs = ()Sql=Select * From newsinfo Where class=amp。newsclass2amp。 And id=amp。id Sql,conn,3,3% 管理員登陸頁(yè)頁(yè)名：功能：管理員登陸頁(yè)面。頁(yè)面制作：用 Dreamweaver 來設(shè)計(jì)登陸頁(yè)面風(fēng)格。測(cè)試后的頁(yè)面如圖 61 所示。圖 61 管理員登陸頁(yè)管理員登陸頁(yè)（）主代碼：%If Request(action)=ChkLogin ThenCall ChkLogin()End If%% 39。對(duì)登錄信息進(jìn)行檢查Sub