【正文】 EB應(yīng)用程序，如交互式的動態(tài)網(wǎng)頁，包括使用html表單收集和處理信息、上傳與下載文件等。從字面上說，ASP包含下面3方面的含義：1：active2：server:3：pages作為IIS環(huán)境下開發(fā)WEB應(yīng)用的一種簡單、方便的編程工具，ASP具有如下特點(diǎn)：（1） 使用VBScript、JavaScript 等簡單易懂的腳本語言，結(jié)合html代碼，可快速完成網(wǎng)站應(yīng)用程序的開發(fā)；（2） 容易編寫，無須編譯，可在服務(wù)器直接執(zhí)行；（3） 使用普通的文本編輯器，如windows的記事本，即可進(jìn)行編輯；（4） 與瀏覽器無關(guān)，只要客戶端瀏覽器能夠執(zhí)行html代碼，就可以瀏覽ASP設(shè)計(jì)的網(wǎng)頁內(nèi)容。與一些復(fù)雜的編程語言相比，VBScript只是一種腳本語言，語法要相對簡單得多。用VBScript作為服務(wù)器端的編程語言的好處是VBScript不受瀏覽器的限制。因?yàn)閂ariant是VBScript中唯一的數(shù)據(jù)類型，所以它也是VBScript中所有函數(shù)返回?cái)?shù)據(jù)的唯一類型。同時(shí)，該字段還可以作為外鍵存在于關(guān)聯(lián)的表中。在數(shù)據(jù)類型列表中選擇此選項(xiàng)，將會啟動向?qū)нM(jìn)行定義。3 系統(tǒng)實(shí)現(xiàn)3 系統(tǒng)實(shí)現(xiàn) ASP程序設(shè)計(jì)準(zhǔn)備在開發(fā)ASP程序之前，需要做一些相應(yīng)的準(zhǔn)備工作。但用它來編寫ASP文件還是十分便捷的。由于ASP運(yùn)行于服務(wù)器端，因此一定要通過WWW方式瀏覽，即URL應(yīng)以://…打頭，而不要以本地文件的形式瀏覽。Connection對象具有各種屬性和方法，可以使用他們打開和關(guān)閉數(shù)據(jù)庫連接，并且發(fā)出查詢請求來更新信息。SQL是用于與數(shù)據(jù)庫通信的工業(yè)標(biāo)準(zhǔn)語言，它有許多命令可用來檢索和更新信息。amp。amp。 系統(tǒng)主要模塊本網(wǎng)站是一個小型的畢業(yè)設(shè)計(jì)綜合管理系統(tǒng)，本系統(tǒng)采用ACESS 2003數(shù)據(jù)庫與ASP編程結(jié)合的技術(shù)，能夠?qū)崿F(xiàn)學(xué)生在線選題、教師上傳和學(xué)生下載任務(wù)書以及論文提交和管理員調(diào)整課題等初步功能，最終以實(shí)現(xiàn)既能使學(xué)生自主選題和教師減少了工作量，也提高了工作效率，學(xué)生還可以通過BBS和同學(xué)、老師互相學(xué)習(xí)和交流。 模塊包含文件：、 、相關(guān)數(shù)據(jù)表：留言表功能詳解：該模塊其實(shí)是一個小型的BBS，支持發(fā)布新帖，跟帖等操作。具體表現(xiàn)在對學(xué)生、教師進(jìn)行添加、修改、3 系統(tǒng)實(shí)現(xiàn)刪除以及查看和修改姓名、代號、密碼等，對課題、留言進(jìn)行刪除，對學(xué)生課題進(jìn)行調(diào)整，從三個備選題中確定下來，對數(shù)據(jù)庫可以進(jìn)行清零等相關(guān)網(wǎng)頁：、、相關(guān)數(shù)據(jù)表：：管理員后臺添加學(xué)生() 數(shù)據(jù)庫需求分析根據(jù)系統(tǒng)功能和數(shù)據(jù)流程分析，可以列出以下所需要的數(shù)據(jù)項(xiàng)：l 前臺操作：管理員帳號、密碼。l 課題信息：課題代號、課題名、課題類型、課題屬性、限選專業(yè)、限選人數(shù)、答疑時(shí)間、任務(wù)書（可以查看上傳與否）、指導(dǎo)教師。本文首先介紹了管理系統(tǒng)的國內(nèi)外發(fā)展的概況、發(fā)展動向以及它的主要特點(diǎn)。雖然本文的研究取得了一定的成果，但由于以前自己對ASP語言不是很精通，所以要花費(fèi)大量的時(shí)間來學(xué)習(xí)和熟悉，所以在時(shí)間上有些限制。但今后還需不斷努力學(xué)習(xí)，為現(xiàn)代化建設(shè)發(fā)揮出自己的作用！參考文獻(xiàn)參考文獻(xiàn)[1] 江曉平 鐘軍 《ASP網(wǎng)絡(luò)開發(fā)技術(shù)》（第二版） 人民郵電出版社 2004 [2] 《ASP編程高手》 北京希望電子出版社[3] 《ASP開發(fā)基礎(chǔ)與范例》 電子工業(yè)出版社[4] 《ASP動態(tài)網(wǎng)頁設(shè)計(jì)精粹》 兵器工業(yè)出版社[5]同時(shí)也向那些給我無私幫助的同學(xué)和朋友們，特在此向以上人員表示最衷心的感謝！畢業(yè)設(shè)計(jì)綜合管理系統(tǒng)附錄 附錄A：程序主要源代碼附錄A1登陸限制，如果你沒有登陸而進(jìn)入頁面的話，則會彈出限制窗口，靠以下代碼來實(shí)現(xiàn)：% if session(name)= then提示：對不起，你還未登錄,登錄后才能操作!amp。關(guān)閉amp。formPath= files/ //39。39。session(renwushu)=(file1)39。if trim(sfilename)then39。set objfile=(sfilepath) 39。end if39。循環(huán)所有上傳文件39。 set upload=nothing end if//39。判斷文件格式39。 dim file_system,sub_files,cur_folder,each_file 39。for each each_file in sub_files 39。 /b 已經(jīng)存在，請將文件改名后上傳。end if 39。set file_system=nothing 39。) 39。amp。amp。 brb文件大?。?b amp。nbsp。nbsp。nbsp。nbsp。 返回 /a (script language=javascript) (alert(上傳成功!)。 iCount=iCount+1 end if //39。set upload=nothing sub HtmEnd(Msg) set upload=nothing 39。 td bgcolor=cccccc height=25 39。 ()。自定義class處理上傳文件39。Chr(10) 39。 strDiv=SubStrB(1,iDivLen) 39。 iFormEnd=InStrB(iformStart,strDiv)1 39。 iStart=InStrB(iFormStart,name=) iEnd=InStrB(iStart+6,) mFormName=SubStrB(iStart+6,iEndiStart6) 39。 if iFileNameStart0 and iFileNameStartiFormEnd then iFileNameEnd=InStrB(iFileNameStart+10,) mFileName=SubStrB(iFileNameStart+10,iFileNameEndiFileNameStart10) iStart=InStrB(iFileNameEnd+1,vbEnteramp。 if iEndiStart then 39。 mFormName,theFile 39。strDiv) if iEndiStart then mFormValue=SubStrB(iStart+4,iEndiStart4) else mFormValue= end if 39。 iFormStart=iformEnd+iDivLen iFormEnd=InStrB(iformStart,strDiv)1 wend End Sub 39。 Private function GetFilePath(FullPath)附錄 If FullPath Then GetFilePath = left(FullPath,InStrRev(FullPath, \)) Else GetFilePath = End If End function 39。Chr(AscW(ChrB(AscB((1)))amp。得到字節(jié)串 Str=toByte(varStr) theLen=LenB(Str) for i=theStart to if i then exit Function附錄 =i1 if AscB((1))=AscB(midB(Str,1)) then InStrB=i for j=2 to theLen if then InStrB=0 Exit for end if if AscB((1))AscB(MidB(Str,j,1)) then InStrB=0 Exit For end if next if InStrB0 then Exit Function end if next End function 39。iLow) amp。 chrB(AscB(c)) End If Next End functionEnd Class ,程序如下:39。 Private Sub Class_Initialize FileName = 附錄 FilePath = FileSize = 0 FileStart= 0 FormName = DBContent = End Sub //39。 Public function Save2DB() dim dr if FileSize=0 or FileStart=0 or FileName= then exit function =FileStart1 DBContent = (FileSize) End functionEnd Class/SCRIPT附錄A3 連接數(shù)據(jù)庫代碼: % function getsqlrecordset(sqlstring,filename) dim objconn set objconn=() //創(chuàng)建一個連接對象 =Provider=。student_numberamp。old_passwordamp。new_passwordamp。student_numberamp。topic=(topiame) 39。sele_number=objrs(sele_number) set objrs1=nothing 39。39。39。studnumberamp。submit39。返回39。 values(39。,39。,39。,39。,39。,amp。topic_nameamp。topic_teacheramp。topic_memoamp。topic_bookamp。studnumberamp。submit39。返回39。amp。amp。i=i+1 39。student_numberamp。 set objrs=getsqlrecordset(mysql,) session(stu_msg)=刪除成功！ %附錄A6% sub bbspostdim mysql,bbs_id,bbs_name,bbs_title,bbs_duixiang,bbs_content,bbs_datebbs_id=session(id)bbs_name=session(name)bbs_title=(title)bbs_duixiang=(duixiang)bbs_content=(content)bbs_date=now() if bbs_title= or bbs_content= then session(bbs_msg)=請輸入主題或內(nèi)容! () end ifmysql=insert into 留言表 (姓名,身份,對象,主題,內(nèi)容,日期) values(39。,39。,39。,39。,39。,39。)set myobj=getsqlrecordset(mysql,)() end sub%第 37 頁 （共51頁）