【正文】 ChkLogin()Dim nameDim pwdname = Trim((name))pwd = Trim((pwd))If name= Or pwd= Then scriptalert(39。請輸入帳號或密碼！39。)。(1)。/script ElseSet Rs = ()Sql=Select * From [admin] Where name=39。amp。nameamp。39。 Sql,conn,2,3If name=Rs(name) And pwd=Rs(pwd) ThenSession(admin)=Rs(name) Else scriptalert(39。帳號或密碼錯誤！39。)。(1)。/script End If End IfSet Rs=nothingEnd Sub% 管理員內容類別編輯頁頁名： 功能：管理員對內容類別進行添加、修改和刪除等操作。頁面制作：用 Dreamweaver 來設計管理員內容類別編輯頁的風格。 要對內容類別進行添加、修改和刪除等操作，就必須和數(shù)據(jù)庫相連接，所以要引用連接頁。!include file=””為了防止用戶的非法登陸，用 Session（“admin” ）作了判定，% if Session(“admin”)”” Then %……% Else該頁面有 3 個登陸模塊：管理員修改內容類別將修改內容類別的操作定義成名為 SavaEdit 的過程，如下所示： % sub SavaEdit ()……End sub % 管理員添加內容類別將添加內容類別的操作定義成名為 SavaAdd 的過程，如下所示：% Sub SavaAdd （） ……End Sub %管理員刪除內容類別將添加內容類別的操作定義成名為 Del 的過程，如下所示： % Sub () …… End sub % 根據(jù)頁面的返回的 Action 信息來分別調用相應的過程，如下所示： %If Request(“action”)=”SavaEdit” Then Call SavaAdd ()Elseif Request (“action”)=”savaAdd” Then Call savaAdd()Elseif Request (“action”)=”Del” Then Call Del() End Del ()%頁面效果：設計完成后效果如圖 62 所示。圖 62 管理員內容類別編輯頁 管理員內容管理頁頁名：功能：顯示所有內容標題. 頁面制作：用 Dreamweaver 來設計管理員內容頁面的風格。管理員要進行內容管理，就必須和數(shù)據(jù)庫相連，所以此頁面要頁面應用數(shù)據(jù)庫連接頁 ,如下所示： !include file=””為了防止用戶的非法訪問（即不是從 頁面登錄） ，用Session（“admin” ）作了判定，如下所示：頁面上方顯示了數(shù)據(jù)庫中所有的內容類別，可以通過單擊相應內容類別顯示出該類別下的所有內容標題，并以分頁顯示，每頁顯示 10 條標題。頁面效果：設計完成后頁面效果如圖 63 所示。圖 63 管理員內容管理頁管理員內容管理頁（）主代碼：% If Session(admin) Then %% 39。在頁面上方顯示數(shù)據(jù)庫中已有的教學版塊名稱Set Rs = ()Sql=Select * From newsclass Sql,conn,3,3Do While not % 管理員添加內容信息頁頁名：功能：管理員添加內容信息。頁面制作：用 Dreamweaver 來設計管理員添加內容信息的風格，如圖 64 所示。 圖 64 管理員添加內容信息頁這個函數(shù)的作用就是上傳圖片，函數(shù)原型在 中。完成后的頁面效果和設計器的一樣。管理員添加內容頁（）主代碼：% 39。從 newsclass 表中讀取教學類別Set Rs1 = ()Sql1=Select * From newsclass Sql1,conn,3,3Do While not option value= amp。 Rs1(class) amp。 amp。 Rs1(title) amp。 /optionLoopSet Rs1=nothing% 管理員修改內容信息頁 頁名：功能：管理員修改指定的內容信息。頁面制作：用 Dreamveaver 來設計管理員添加信息頁的風格，如圖 65 所示。圖 65 管理員修改內容信息設計頁管理員要添加內容信息，就必須和數(shù)據(jù)庫，就必須和數(shù)據(jù)庫相連，所以此頁面要用數(shù)據(jù)庫連接頁 ,如下所示：!include file=””為了防止用戶的非法訪問（即不是從 頁面登錄） ，用Session（“admin” ）作了判定。這個函數(shù)的作用就是上傳圖片，函數(shù)原型在 中。完成后的頁面效果和設計器的一樣。 管理員刪除內容信息頁頁名：功能：管理員刪除指定的內容信息。頁面制作：打開記事本，添加如下代碼，然后保存在 即可。頁面效果：由于該頁面沒有任何 HTML 代碼，頁沒有任何 ASP 的輸出顯示代碼，所以無法瀏覽該頁面。管理員刪除內容信息頁（）主代碼：% 39。刪除教學信息Dim selectclassDim idselectclass = Request(selectclass)id = Request(id)Set Rs = ()Sql=Select * From newsinfo Where id=amp。id Sql,conn,3,3 Set Rs=nothing ?selectclass=amp。selectclassamp。% 管理員內容信息類別移動操作頁頁名：功能：管理員對相應內容信息作類別移動操作。頁面制作：打開記事本，添加如下的 asp 代碼，然后保存為 AdminChangClass即可。頁面效果：由于該頁面沒有任何 HTML 代碼，頁沒有任何 ASP 的輸出顯示代碼，所以瀏覽該頁面是沒有任何效果。管理員內容信息類別移動操作頁（）主代碼： %39。更改相應教學信息所屬的教學類別Dim idDim newsclassDim selectclassid = Request(id)newsclass = (newsclass)selectclass = Request(selectclass)Set Rs = ()Sql=Select * From newsinfo Where id=amp。id Sql,conn,3,3Rs(class)=newsclassSet Rs=nothing ?selectclass=amp。selectclassamp。 % 上傳組件頁頁名：adovbs．Inc 功能：系統(tǒng)自帶的上傳組件。實現(xiàn)無組件上傳（）主代碼： 文件 　　 ＜% 39。實現(xiàn)無組件上傳　　 Function GetFileName(ByVal strFile) 　　 If strFile ＜＞ Then 　　 GetFileName = mid(strFile,InStrRev(strFile, \)+1) 　　 Else 　　 GetFileName = 　　 End If 　　 End function　　 　　 strFileName = (file1) 　　 Set objStream = () 　　 = 1 39。 adTypeBinary 　　 　　 strFileName 　　 (GetFileName(strFileName)),2 　　 　　 %＞　　 　　 文件 　　 ＜form name=FORM action= method=post＞ 　　　?。糹nput type=submit name=submit value=OK＞ 　　 ＜input type=file name=file1 style=width:400 value=＞ 　　 ＜/form＞　　結論ASP 從推出至今時間也不算漫長，由于它具有開發(fā)簡單，功能強和靈活等優(yōu)點，現(xiàn)在已被廣泛接受，成為開發(fā)動態(tài)網(wǎng)絡站點的主要技術之一，有人聲稱 ASP 已在Web 開發(fā)領域悄悄地進行著一場革命。今天已有上萬個 Web 站點使用了 ASP 技術，其中包括許多 Inter 中最大的站點。有人估計，在過去幾年中，ASP 開發(fā)人員已達百萬之多，預計在今后的發(fā)展過程當中將會越來越多,ASP 正慢慢成為動態(tài) Web 應用程序開發(fā)環(huán)境的主流?；?Web 的現(xiàn)代遠程教育是一種新型的教育方式，隨著現(xiàn)代信息管理的發(fā)展，它將越來越受到人們的關注并逐步取代傳統(tǒng)教育，21 世紀它將成為構筑終身學習體系的主要手段,而基于 Web 的動態(tài)交互式教學網(wǎng)站則是現(xiàn)代網(wǎng)絡教育不可缺少的一部份。本文提出了一種基于 Web 的學校教學網(wǎng)站，該網(wǎng)站的多用戶發(fā)布，多欄目管理，使學校的教學內容及時、準確的得以發(fā)布。學生通過發(fā)送信息郵件，使學生的意見和需求能夠及時的得以提出，激發(fā)了他們的學習欲望。利用 ASP 技術實現(xiàn)學校的教學內容能夠及時的得以發(fā)布是一項很有效方法，這種組建的方式，可以應用于網(wǎng)站的其它欄目。又由于 ASP 編程所用的 Vbscript 與Jscript 語言較其它語言較簡潔、易操作、功能較強非常適合廣大用戶進行網(wǎng)站的開發(fā)。ASP 雖然提供了功能強大的 Web 應用程序開發(fā)環(huán)境,但和其它技術一樣,它也存在著某些缺點。Web 服務器還不支持 ASP 的運行。但 ASP 畢竟是軟件霸主微軟精心設計的一個寵兒,人們不得不慢慢向它靠攏，現(xiàn)在越來越多的 Web 服務器已開始支持ASP。以信息網(wǎng)站為核心的 Web 信息系統(tǒng)建設方興未艾，運用新技術進行創(chuàng)新的應用開發(fā)，提高網(wǎng)絡系統(tǒng)應用成效將是一個不竭的課題。致 謝此設計是在我的指導老師肖武德老師的悉心指導下完成的，他嚴肅的科學態(tài)度，嚴謹?shù)闹螌W精神，精益求精的工作作風，深深地感染和激勵著我。從課題的選擇到項目的最終完成，肖老師對我進行了耐心的指導和幫助，提出嚴格要求，引導我不斷開闊思路，為我答疑解惑，鼓勵我大膽創(chuàng)新，使我在這一段寶貴的時光中，既增長了知識、開闊了視野、鍛煉了心態(tài)，又培養(yǎng)了良好的學習習慣和創(chuàng)新精神。在此，我向我的指導老師表示最誠摯的謝意崇高的敬意。在此，我還要感謝和我在一起進行電大學習的同學，正是有了他們的幫助和支持，我才能克服一個又一個的困難和疑惑，直至本次設計的順利完成，在這里請接受我誠摯的謝意！ 【參考文獻】[1] 黃雷 楊志 游坤 ＋HTML＋Dreamweaver＋Access 開發(fā)動態(tài)網(wǎng)站實例薈萃[M].機械[2] 宋朝東 HTML CSS JAVASCRIPT 制作網(wǎng)頁[M].[3] 李燁 DIV+CSS 網(wǎng)頁布局與美化[M].[4] [M].[5] 李勇平 . NET（ｃ＃）基礎教程[M].[6] 顧春花 張雪芹 付歌 程序設計[M].[7] 王輝 羅皇 Dreamweaver 8 網(wǎng)頁制作[M].[8] 段克奇 ASP 篇[M].[9] 席金菊 何碧英 [M].2022[10] 數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊[M].[11] 龍馬工作室 +SQL Server 網(wǎng)站開發(fā)實例精講[M