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