【導(dǎo)讀】隨著計算機的不斷發(fā)展和廣泛應(yīng)用，人們的工作效率得到不斷的提高。更是縮短了人們之間的距離。如何充分利用互聯(lián)網(wǎng)，這是大家共同關(guān)心的問題。日益忙碌的人們開始追求足不出戶的利用互聯(lián)網(wǎng)這一強大的平臺來實現(xiàn)網(wǎng)上教學(xué)。年，隨著網(wǎng)絡(luò)數(shù)據(jù)庫技術(shù)的進一步發(fā)展，使得這一設(shè)想逐漸成為現(xiàn)實。在本系統(tǒng)中，教師和學(xué)生可以很容易的注冊為系統(tǒng)用戶。教師能夠發(fā)布論文題目，管理員可以根據(jù)用戶提交的信息進行管理。統(tǒng)模塊結(jié)構(gòu)作了劃分與設(shè)計。本文在系統(tǒng)的架構(gòu)上采用了當前流行的B/S結(jié)構(gòu)，通過ASP、DREAMWEAVER和Access2021數(shù)據(jù)庫等軟件的強大功能完成了該系統(tǒng)。它使論文管理變的方便，快捷。

　　

【正文】 l,topic_number,topic_name,topic_kind,topic_value,department,limt_number,topic_teacher,topic_book,answer_time,adddate topic_name=trim((topic_name)) topic_kind=trim((topic_kind)) topic_value=trim((topic_value)) department=trim((department)) limt_number=cint((limt_number)) answer_time=trim((answer_time)) topic_teacher=session(teacher_name) topic_book=session(topic_book) session(topic_book)= adddate=date() if topic_name= or topic_kind= or topic_value= or department= or limt_number= then session(msg)=請輸入完整信息！ 畢業(yè)論文管理系統(tǒng) 27 else mysql=insert into 設(shè)計課題表 (課題名 ,課題類型 ,課題屬性 ,限選專業(yè) ,限選人數(shù) ,課 題任務(wù)書 , 答 疑 時 間 , 指 導(dǎo) 教 師 , 日期 ) values(39。amp。topic_nameamp。39。,39。amp。topic_kindamp。39。,39。amp。topic_valueamp。39。,39。amp。departmentamp。39。,39。amp。limt_numberamp。39。,39。amp。topic_bookamp。39。,39。amp。answer_timeamp。39。,39。amp。topic_teacheramp。39。,39。amp。adddateamp。39。) set objrs=nothing set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) session(msg)=增加成功！ end if end sub % 圖 56上傳成功后顯示出提交信息 教師修改及刪除信息功能 圖 57修改密碼 修改頁面連接數(shù)據(jù)庫的部分源代碼： % sub modifyteacherpass dim mysql,obj,teacher_code,old_password,new_password,ok_password teacher_code=session(teacher_code) old_password=trim((old_password)) new_password=trim((new_password)) ok_password=trim((ok_password)) mysql=select * from 教 師 表 where 教 師 代 號 =39。amp。teacher_codeamp。39。 and 密碼=39。amp。old_passwordamp。39。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) if then session(tea_pass)=舊密碼不正確 !! 畢業(yè)論文管理系統(tǒng) 28 end if if new_passwordok_password then session(tea_pass)=新密碼和確認密碼不一致，請核對 !! end if mysql=update 教師表 set 密碼 =39。amp。new_passwordamp。39。 where 教 師 代 號=39。amp。teacher_codeamp。39。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) session(tea_pass)=修改成功！ end sub % % dim topic_number,mysql topic_number=request(topic_number) mysql=delete from 設(shè)計課題表 where 課題代號 =amp。topic_numberamp。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) session(tea_msg)=刪除成功！ % 學(xué)生模塊設(shè)計 學(xué)生登陸功能 該功能和教師登陸功能基本相同，登陸頁面為 ，輸入正確的用戶名和密碼能順利進入學(xué)生提交頁面（ ） ,如果輸入信息錯誤，則返回登陸頁面，提示錯誤信息。 圖 58學(xué)生提交頁面 登陸源代碼與教師登陸基本相似，故不在列出 畢業(yè)論文管理系統(tǒng) 29 學(xué)生提交論文題目功能 進入學(xué)生提交頁面（ ）后，學(xué)生就可以進行提交論文題目的操作了，提交成功后會顯示出提交論文題目的信息，如下圖 圖 59提交論文題目 % sub studentpost dim mysql,student_number,student_name,topic1,topic2,topic3,adddate student_number=session(student_number) student_name=session(student_name) topic1=trim((topic1)) topic2=trim((topic2)) topic3=trim((topic3)) adddate=date() mysql=select * from 選題表 where 學(xué)生學(xué)號 =39。amp。student_numberamp。39。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) if not then if objrs(課題一 ) and objrs(課題二 ) and objrs(課題三 ) then session(stu_msg)=你已經(jīng)提交課題！如要重選，請先刪除！ end if end if if topic1= then session(stu_msg)=課題一的代號不能為空，請重新輸入！ end if if topic2= then session(stu_msg)=課題二的代號不能為空，請重新輸入！ end if if topic3= then session(stu_msg)=課題三的代號不能為空，請重新輸入！ end if if topic10 or topic19 then session(stu_msg)=請輸入課題一的課題代號，重新輸入！ 畢業(yè)論文管理系統(tǒng) 30 end if if topic20 or topic29 then session(stu_msg)=請輸入課題二的課題代號，重新輸入！ end if if topic30 or topic39 then session(stu_msg)=請輸入課題三的課題代號，重新輸入！ end if if topic1=topic2 or topic1=topic3 or topic2=topic3 then session(stu_msg)=不能選擇兩個或三個相同的課題 !! end if set objrs=nothing mysql=select * from 學(xué)生表 where 學(xué)生學(xué)號 =39。amp。student_numberamp。39。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) if not then department=objrs(專業(yè) ) xueli=objrs(學(xué)歷 ) end if set objrs=noting mysql=select * from 設(shè)計課題表 where 課題代號 =amp。topic1amp。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) if not then department1=objrs(限選專業(yè) ) xueli1=objrs(課題屬性 ) topic1_name=objrs(課題名 ) limt_number=objrs(限選人數(shù) ) else session(stu_msg)=課題一代號不存在，請另外選！ end if set objrs=nothing mysql=select * from 設(shè)計課題表 where 課題代號 =amp。topic2amp。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) if not then department2=objrs(限選專業(yè) ) xueli2=objrs(課題屬性 ) topic2_name=objrs(課題名 ) else session(stu_msg)=課題二代號不存在，請另外選！ end if 畢業(yè)論文管理系統(tǒng) 31 set objrs=nothing mysql=select * from 設(shè)計課題表 where 課題代號 =amp。topic3amp。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) if not then department3=objrs(限選專業(yè) ) xueli3=objrs(課題屬性 ) topic3_name=objrs(課題名 ) else session(stu_msg)=課題三代號不存在，請另外選！ end if if departmentdepartment1 or departmentdepartment2 or departmentdepartment3 then session(stu_msg)=學(xué)生專業(yè)與課題專業(yè)不一致，請核對！ end if if xuelixueli1 or xuelixueli2 or xuelixueli3 then session(stu_msg)=學(xué)生學(xué)歷與課題屬性不一致，請核對！ end if set objrs=nothing 39。mysql=select * from 設(shè)計課題表 where 課題代號 =39。amp。topic1amp。39。 39。set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) if limt_number=0 then session(stu_msg)=課題一已選滿，請重選課題一！ end if mysql=insert into 選題表 (學(xué)生學(xué)號 ,學(xué)生姓名 ,課題一 ,課題二 ,課題三 ,日期 ) values(39。amp。student_numberamp。39。,39。amp。student_nameamp。39。,39。amp。topic1_nameamp。39。,39。amp。topic2_nameamp。39。,39。amp。topic3_nameamp。39。,39。amp。adddateamp。39。) set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) set objrs=nothing limt_number=limt_number1 session(topic1)=topic1 mysql=update 設(shè)計課題表 set 限選人數(shù) =amp。limt_numberamp。 where 課題代號=amp。topic1amp。 set objrs=getsqlrecordset(mysql,畢業(yè)設(shè)計 .mdb) session(stu_msg)=選題成功！ end sub % 畢業(yè)論文管理系統(tǒng) 32 圖 510提交成功 學(xué)生修改及刪除信息功能 界面與教師修改及刪除信息功能大致相同 圖 511 學(xué)生密碼修改 修改源代碼與教師修改基本相似，故不在列出