【正文】 fname),2 set fstream = nothingend sub。39。39。39。39。39。39。39。39。39。39。 , amp。39。39。39。39。39。39。39。 39。uid=sa。server=.。用instr()對遍歷到的文件進行篩選 if num0 then%trtda href=/web/kaiti/%=content%%=content%/a/td%end if next% 說明:抽查功能的實現(xiàn),.******************************************************************************************************源碼六:源碼中包含的文件************************Part1: ****************% 39。遍歷目標文件夾 content= 39。文件存儲的路徑 set f=(filepath) 39。) (sql) 39。,amp。filenameamp。amp。39。amp。39。amp。39。amp。39。sql = sql amp。設(shè)置文件保存路徑 39。39。filedescamp。filesizeamp。nbsp。nbsp。nbsp。file_ctypeamp。nbsp。nbsp。nbsp。filenameamp。39。br filedata = myrequest(filedata) filesize = lenb(filedata) 39。獲取文件類型 文件類型：amp。ftitleamp。獲取文件名稱 if ftitle = then 39。39。)[退選]/a/td/tr% end ifend if call closeDB() 39。查詢記錄不為空,學(xué)生已經(jīng)選題 (您已經(jīng)選題，詳細信息如下:) (br)% trtd width=35%題目/tdtd width=20%教師/tdtd width=30%選題時間/tdtd width=15%操作/td/trtrtd width=35%%=rs(timu)%/tdtd width=20%%=rs(username)%/tdtd width=30%%=rs(time)%/tdtd width=15%a href= onclick=return confirm(39。39。amp。39。amp。 sql,conn,1,1 if then 39。session(userid)amp。/script) else% % ‘判斷學(xué)生是否選題 dim id set rs=() sql=select * from t_xuanti where usernumber=39。location=39。無效操作!該功能還未開放!39。這里執(zhí)行你查詢SQL并獲得結(jié)果記錄集table border=0 width=95% borderColorLight=808080 borderColorDark=ffffff trtd width=15%學(xué)號/工號/tdtd width=15%姓名/tdtd width=30%題目/tdtd width=25%申請時間/tdtd width=15%課題審核/td/tr/table% ’開始循環(huán) for i=1 to if or then exit for% table width=95% borderColorLight=808080 borderColorDark=ffffff border=0trtd width=15%%=rs(usernumber)%/td td width=15%%=rs(username)%/td td width=30%%=rs(timu)%/td td width=25%=rs(time)%/td td width=15%a href=?id=%=rs(id)%[通過]/a/a href=?id=%=rs(id)%[駁回]/a/td/tr /table************************************************************************************************源碼三：學(xué)生選題*******************%LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=!include file=link href= type=text/css rel=stylesheet% 39。/script)%****************************************************************************************************源碼二 教師題目審核**********************%LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=!include file=link href= type=text/css rel=stylesheet% dim rs,sql set rs=() sql=select * from t_timu order by id desc = 10 39。location=39。申請成功！點擊確定返回繼續(xù)添加！39。插入數(shù)據(jù)結(jié)束 ’操作完畢關(guān)閉記錄集 call closeDB() 39。設(shè)置記錄集操作權(quán)限為讀寫 39。使用recordset集合的open方法打開集合并用sql語句查詢該集合,設(shè)置記錄集操作權(quán)限為只讀 if not then 39。39。amp。*************************源碼一：教師題目申請申請*********************************%LANGUAGE=VBSCRIPT CODEPAGE=936%!include file=!include file=% dim rs,sql,xingming 39。 其次要感謝我的同學(xué)孫權(quán)、張魁文、李緣文對我無私的幫助，在軟件的開發(fā)研制中給予我很大的幫助，正因為如此我才能順利的完成設(shè)計，我要感謝我的母?！拇ɡ砉ご髮W(xué)，是母校給我們提供了優(yōu)良的學(xué)習(xí)環(huán)境；另外，我還要感謝那些曾給我授過課的每一位老師，是你們教會我專業(yè)知識。我的設(shè)計較為繁瑣，工作量較大，但是歐陽老師仍然細心地糾正代碼中的錯誤。 在這里首先要感謝我的導(dǎo)師歐陽俊林老師?？傊?，由于個人的知識水平和經(jīng)驗的不足，本設(shè)計中可能存在很多的問題，我會在今后的學(xué)習(xí)中逐步加強。設(shè)計中的不足：在本次設(shè)計開發(fā)過程中，在代碼的整體編排上獨立性有一很大的提高，但是隨之而來的，在可讀性方面可能還有一些欠缺考慮的地方存在，對于其本系統(tǒng)的設(shè)計者來看，整體的架構(gòu)可能還不太清晰，總體還是不夠好，今后應(yīng)該在實踐中繼續(xù)提高，在注釋的書寫方面也是有待加強，應(yīng)著重重視這一方面文字的書寫，這樣更可以便于閱讀，加快讀程序者了解程序整體架構(gòu)和思路，這也是日后要加強的部分。(3)整體規(guī)劃或總體設(shè)計不必過于注重實現(xiàn)細節(jié)。(2)不要急于做總體設(shè)計，也不要忽略總體設(shè)計的重要性。在這次系統(tǒng)設(shè)計中我深刻體會到以下三點：(1)需求分析是以后設(shè)計和實現(xiàn)能順利進行的保證和依據(jù)，若沒有做好需求分析，那么你就不知道自己的系統(tǒng)應(yīng)該實現(xiàn)什么功能，這樣會導(dǎo)致在以后的系統(tǒng)實現(xiàn)時會頻繁的給系統(tǒng)增加功能，而把整個設(shè)計搞得很亂。此次的畢業(yè)設(shè)計管理系統(tǒng)是基于B/S結(jié)構(gòu)的畢業(yè)設(shè)計管理系統(tǒng)，這對于高校本科生的畢業(yè)設(shè)計和畢業(yè)設(shè)計進行計算機管理，有利于提高工作效率，解決了畢業(yè)生校外實習(xí)難于與教師面對面直接接觸帶來的很多不方便的問題，對于監(jiān)督和檢查畢業(yè)設(shè)計和畢業(yè)論文這一重要的教學(xué)環(huán)節(jié)提供了良好的環(huán)境和工作平臺。而且每次課程設(shè)計都是急于編碼，根本不從整體考慮系統(tǒng)和設(shè)計。 本章小結(jié)本章對畢業(yè)設(shè)計管理系統(tǒng)進行了編碼實現(xiàn)，完成了系統(tǒng)的開發(fā)，在文章中，限于篇幅的原因，給出了主要模塊的實現(xiàn)代碼和實現(xiàn)后的界面圖，如需查看其他功能，請登陸系統(tǒng)。詳細實現(xiàn)代碼參見附錄B源碼三 學(xué)生上傳開題報告等上傳界面如圖56所示：圖56 學(xué)生上傳文檔學(xué)生可通過該界面進行設(shè)計文檔的上傳供指導(dǎo)教師評閱。詳細實現(xiàn)代碼參見附錄B 源碼一 部門審核教師申請題目的實現(xiàn)審核界面如圖53所示：圖53 教師題目審核管理員可通過此界面對指導(dǎo)教師所申請的課題進行審核入庫。關(guān)閉數(shù)據(jù)庫 sub closeDB( ) if isobject(conn) then if not(conn is nothing) then set rs=nothing set conn=nothing end if end if end sub% 關(guān)鍵業(yè)務(wù)的實現(xiàn) 教師題目申請實現(xiàn)一、申請注意事項如圖51所示：圖51 課題申請須知 教師在申請題目之前，須仔細閱讀申請須知，并按照相關(guān)規(guī)定進行課題申請操作。uid=sa；pwd=。server=.。五、具體實現(xiàn)如下代碼所示：% set conn=() 39。 創(chuàng)建數(shù)據(jù)對象(Recordset) Dim Rs ‘申明變量’ Set Rs=()