【導(dǎo)讀】本文對畢業(yè)設(shè)計(jì)管理系統(tǒng)的設(shè)計(jì)實(shí)現(xiàn)過程進(jìn)行了系統(tǒng)的闡述。來對數(shù)據(jù)庫的構(gòu)建進(jìn)行了討論；最后對系統(tǒng)核心功能的實(shí)現(xiàn)過程進(jìn)行較詳細(xì)的描述。核心使用ASP技術(shù)結(jié)合框架技術(shù)實(shí)現(xiàn)。本文實(shí)現(xiàn)了畢業(yè)設(shè)計(jì)中基本環(huán)節(jié)的功能。

　　

【正文】 not then count= ’將所獲取記錄條數(shù)賦給變量 count,用此變量來判定題目是否可選 else count=0 ‘初始化變量 end if % td%=count%/1/tdtd width=10%a href=?id=%=rs(id)%[選題 ]/a/td/tr % loop else if not then 39。查詢記錄不為空 ,學(xué)生已經(jīng)選題 (您已經(jīng)選題，詳細(xì)信息如下 :) (br) % trtd width=35%題目 /tdtd width=20%教師 /tdtd width=30%選題時(shí)間 /tdtd width=15%操作 /td/tr 趙勇建：基于 WEB 的畢業(yè)設(shè)計(jì)管理系統(tǒng)開發(fā) 34 trtd width=35%%=rs(timu)%/tdtd width=20%%=rs(username)%/tdtd width=30%%=rs(time)%/tdtd width=15%a href= onclick=return confirm(39。是否確認(rèn)退選該題目 ?39。)[退選 ]/a/td/tr % end if end if call closeDB() 39。調(diào)用函數(shù) closeDB()關(guān)閉并釋放連接 end if % /div /body ****************************************************************************** ******************** 源碼四 :學(xué)生文檔上傳 ******************** %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file= !include file= !include file= link href= rel=stylesheet type=text/css link href= type=text/css rel=stylesheet % 39。39。數(shù)據(jù)庫連接 set rs = () conn ftitle = MyRequest(filetitle) 39。獲取文件名稱 if ftitle = then 39。判斷是否為空 文件名稱：空 br else 文件名稱： amp。ftitleamp。br end if ftype = myrequest(fileType) 39。獲取文件類型 文件類型： amp。ftypeamp。br filedata = myrequest(filedata) filesize = lenb(filedata) 39。獲取文件大小 if filesize = 0 then 上傳文件：沒有 br else filename = GetFileName(filedata) 39。39。限制加入的類型 *.asp file_ctype = GetContentType(filedata) 上傳文件： amp。filenameamp。 數(shù)據(jù) 流： amp。file_ctypeamp。 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 35 文件長度： amp。filesizeamp。br end if filedesc = myrequest(fileDesc) 文件說明： amp。filedescamp。brbr if ftitle and fileSize 0 and instr(filename,.asp)1 then 39。39。保存數(shù)據(jù)到數(shù)據(jù)庫 dim basepath,sql basepath = ./kaiti/ 39。設(shè)置文件保存路徑 39。向數(shù)據(jù)表中插入上傳文件相關(guān)信息 sql = insert into t_info ( filetitle,filedesc,filetype,filecontenttype,filepath,filesize) values (39。sql = sql amp。 ftitleamp。39。,39。amp。filedescamp。39。,39。amp。ftypeamp。39。,39。amp。file_ctypeamp。39。,39。amp。basepathamp。filenameamp。39。,amp。filesizeamp。) (sql) 39。執(zhí)行 sql 語句 Call SavetoFile(filedata,basepath,filename) 文件已經(jīng)上傳 br else 上傳失?。?br end if () set conn = nothing % ******************************************************************************************************* 源碼五 :學(xué)生設(shè)計(jì)進(jìn)度抽查 ************************* %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file= !include file= link href= type=text/css rel=stylesheet % dim aaa content,objf,num aaa=(id) set fso=() filepath=(./kaiti) 39。文件存儲的路徑 set f=(filepath) 39。調(diào)用 filesystemobject 對象的 getfolder方法 For Each objf in 39。遍歷目標(biāo)文件夾 content= 39。獲取文件名并賦值給變量 content num = instr(1,content,trim(aaa),1) 39。用 instr()對遍歷到的文件進(jìn)行篩選 if num0 then % trtda href=/web/kaiti/%=content%%=content%/a/td %end if next% 說明 :抽查功能 的實(shí)現(xiàn) ,就是對學(xué)生所上傳的文檔進(jìn)行查閱 .以上代碼給出了操作方法 . 趙勇建：基于 WEB 的畢業(yè)設(shè)計(jì)管理系統(tǒng)開發(fā) 36 ****************************************************************************************************** 源碼六 :源碼中包含的文件 ************************ Part1: **************** % 39。打開數(shù)據(jù)庫 set conn=() driver={SQL Server}。server=.。database=sheji。uid=sa。pwd=。 39。關(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 % Part2: ******************* % if session(username)= then () end if % Part3: ********************* % 39。39。Option Explicit 39。39。 = 999 Function Bytes2bStr(vin) if lenb(vin) =0 then Bytes2bStr = exit function end if 39。39。二進(jìn)制轉(zhuǎn)換為字符串 Dim BytesStream,StringReturn Set BytesStream = () = 2 vin 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 37 = 0 = gb2312 = 2 StringReturn = Set BytesStream = Nothing Bytes2bStr = StringReturn End Function Function Myrequest(fldname) 39。39。取表單數(shù)據(jù) 39。39。支持對同名表單域的讀取 dim i dim fldHead dim tmpvalue for i = 0 to loopt1 fldHead = fldInfo(i,0) if instr(lcase(fldHead),lcase(fldname))0 then 39。39。表單在數(shù)組中 39。39。判斷該表單域內(nèi)容 tmpvalue = FldInfo(i,1) if instr(fldHead,filename=)1 then Tmpvalue = Bytes2bStr(tmpvalue) if myrequest then myrequest = myrequest amp。 , amp。tmpvalue else MyRequest = tmpvalue end if else myrequest = tmpvalue end if end if next end function function GetFileName(fldName) 39。39。都取原上傳文件文件名 dim i dim fldHead dim fnpos for i = 0 to loopt1 fldHead = lcase(fldInfo(i,0)) if instr(fldHead,lcase(fldName)) 0 then fnpos = instr(fldHead,filename=) if fnpos 1 then exit for 趙勇建：基于 WEB 的畢業(yè)設(shè)計(jì)管理系統(tǒng)開發(fā) 38 fldHead = mid(fldHead,fnpos+10) 39。39。表單內(nèi)容 GetFileName = mid(fldHead,1,instr(fldHead,)1) GetfileName = mid(GetFileName,instrRev(GetFileName,\)+1) end if next end function function GetContentType(fldName) 39。39。讀取上傳文件的類型 39。39。限定讀取文件域的內(nèi)容 dim i dim fldHead,cpos for i = 0 to loopt 1 fldHead = lcase(fldInfo(i,0)) if instr(fldHead,lcase(fldName)) 0 and instr(fldHead,filename=) 0 then 39。39。讀取 contentType cpos = instr(fldHead,contenttype: ) GetContentType = mid(fldHead,cpos+14) end if next end function Sub SaveToFile(fd,path,fname) 39。39。保存文件 39。39。參數(shù)說明 :39。39。fd:byte（）類型數(shù)據(jù)，文件內(nèi)容 39。39。path:保存路徑后面必須帶 /39。39。fname:文件名 dim Fstream Set FStream = () = 3 = 1 = 0 fd (pathamp。fname),2 set fstream = nothing end sub 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 1 原文已完。下文為附加文檔，如不需要，下載后可以編輯刪除，謝謝！ 施工組織設(shè)計(jì) 本施工組織設(shè)計(jì)是本著“一流的質(zhì)量、一流的工期、科學(xué)管理”來進(jìn)行編制的。編制時(shí)，我公司技術(shù)發(fā)展部、質(zhì)檢科以及項(xiàng)目部經(jīng)過精心研究、合理組織、充分利用先進(jìn)工藝，特制定本施工組織設(shè)計(jì)。 一、 工程概況： 西夏建材城生活區(qū) 2 30住宅樓位于銀川市新市區(qū) ，橡膠廠