【正文】 EB應用程序，如交互式的動態(tài)網頁，包括使用html表單收集和處理信息、上傳與下載文件等。從字面上說，ASP包含下面3方面的含義：1：active2：server:3：pages作為IIS環(huán)境下開發(fā)WEB應用的一種簡單、方便的編程工具，ASP具有如下特點：（1） 使用VBScript、JavaScript 等簡單易懂的腳本語言，結合html代碼，可快速完成網站應用程序的開發(fā)；（2） 容易編寫，無須編譯，可在服務器直接執(zhí)行；（3） 使用普通的文本編輯器，如windows的記事本，即可進行編輯；（4） 與瀏覽器無關，只要客戶端瀏覽器能夠執(zhí)行html代碼，就可以瀏覽ASP設計的網頁內容。與一些復雜的編程語言相比，VBScript只是一種腳本語言，語法要相對簡單得多。用VBScript作為服務器端的編程語言的好處是VBScript不受瀏覽器的限制。因為Variant是VBScript中唯一的數(shù)據類型，所以它也是VBScript中所有函數(shù)返回數(shù)據的唯一類型。同時，該字段還可以作為外鍵存在于關聯(lián)的表中。在數(shù)據類型列表中選擇此選項，將會啟動向導進行定義。3 系統(tǒng)實現(xiàn)3 系統(tǒng)實現(xiàn) ASP程序設計準備在開發(fā)ASP程序之前，需要做一些相應的準備工作。但用它來編寫ASP文件還是十分便捷的。由于ASP運行于服務器端，因此一定要通過WWW方式瀏覽，即URL應以://…打頭，而不要以本地文件的形式瀏覽。Connection對象具有各種屬性和方法，可以使用他們打開和關閉數(shù)據庫連接，并且發(fā)出查詢請求來更新信息。SQL是用于與數(shù)據庫通信的工業(yè)標準語言，它有許多命令可用來檢索和更新信息。amp。amp。 系統(tǒng)主要模塊本網站是一個小型的畢業(yè)設計綜合管理系統(tǒng)，本系統(tǒng)采用ACESS 2003數(shù)據庫與ASP編程結合的技術，能夠實現(xiàn)學生在線選題、教師上傳和學生下載任務書以及論文提交和管理員調整課題等初步功能，最終以實現(xiàn)既能使學生自主選題和教師減少了工作量，也提高了工作效率，學生還可以通過BBS和同學、老師互相學習和交流。 模塊包含文件：、 、相關數(shù)據表：留言表功能詳解：該模塊其實是一個小型的BBS，支持發(fā)布新帖，跟帖等操作。具體表現(xiàn)在對學生、教師進行添加、修改、3 系統(tǒng)實現(xiàn)刪除以及查看和修改姓名、代號、密碼等，對課題、留言進行刪除，對學生課題進行調整，從三個備選題中確定下來，對數(shù)據庫可以進行清零等相關網頁：、、相關數(shù)據表：：管理員后臺添加學生() 數(shù)據庫需求分析根據系統(tǒng)功能和數(shù)據流程分析，可以列出以下所需要的數(shù)據項：l 前臺操作：管理員帳號、密碼。l 課題信息：課題代號、課題名、課題類型、課題屬性、限選專業(yè)、限選人數(shù)、答疑時間、任務書（可以查看上傳與否）、指導教師。本文首先介紹了管理系統(tǒng)的國內外發(fā)展的概況、發(fā)展動向以及它的主要特點。雖然本文的研究取得了一定的成果，但由于以前自己對ASP語言不是很精通，所以要花費大量的時間來學習和熟悉，所以在時間上有些限制。但今后還需不斷努力學習，為現(xiàn)代化建設發(fā)揮出自己的作用！參考文獻參考文獻[1] 江曉平 鐘軍 《ASP網絡開發(fā)技術》（第二版） 人民郵電出版社 2004 [2] 《ASP編程高手》 北京希望電子出版社[3] 《ASP開發(fā)基礎與范例》 電子工業(yè)出版社[4] 《ASP動態(tài)網頁設計精粹》 兵器工業(yè)出版社[5]同時也向那些給我無私幫助的同學和朋友們，特在此向以上人員表示最衷心的感謝！畢業(yè)設計綜合管理系統(tǒng)附錄 附錄A：程序主要源代碼附錄A1登陸限制，如果你沒有登陸而進入頁面的話，則會彈出限制窗口，靠以下代碼來實現(xiàn)：% if session(name)= then提示：對不起，你還未登錄,登錄后才能操作!amp。關閉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 已經存在，請將文件改名后上傳。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ù)據庫代碼: % 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)=請輸入主題或內容! () end ifmysql=insert into 留言表 (姓名,身份,對象,主題,內容,日期) values(39。,39。,39。,39。,39。,39。)set myobj=getsqlrecordset(mysql,)() end sub%第 37 頁 （共51頁）