【正文】 0 FormName = DBContent = End Sub //39。自定義方法，將上傳文件保存到服務(wù)器指定目錄39。 Public function SaveAs(FullPath) dim dr,ErrorChar,i SaveAs=1 if trim(fullpath)= or FileSize=0 or FileStart=0 or FileName= then exit function if FileStart=0 or right(fullpath,1)=/ then exit function set dr=CreateObject() =3 =1 =FileStart1 dr,FileSize FullPath,2 set dr=nothing SaveAs=0 End function //39。自定義方法，將上傳文件保存到數(shù)據(jù)庫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=。Data Source=amp。(data/+filename) //打開數(shù)據(jù)庫連接畢業(yè)設(shè)計綜合管理系統(tǒng) set getsqlrecordset=() sqlstring,objconn,adLockOptimistic end function%學(xué)生登陸后修改密碼代碼:% sub modifystudentpassdim mysql,obj,student_number,old_password,new_password,ok_password student_number=session(student_number) old_password=trim((old_password)) new_password=trim((new_password)) ok_password=trim((ok_password)) mysql=select * from 學(xué)生表 where 學(xué)生學(xué)號=39。amp。student_numberamp。39。 and 密碼=39。amp。old_passwordamp。39。 set objrs=getsqlrecordset(mysql,) if then session(stu_pass)=舊密碼不正確!! end if if new_passwordok_password then session(stu_pass)=新密碼和確認(rèn)密碼不一致，請核對!! end if mysql=update 學(xué)生表 set 密碼=39。amp。new_passwordamp。39。 where 學(xué)生學(xué)號=39。amp。student_numberamp。39。 set objrs=getsqlrecordset(mysql,) session(stu_pass)=修改成功！ end sub%附錄A4 管理員后臺調(diào)整選題代碼： % dim objrs,mysql,objrs1,objrs2,objrs3,mysql1,mysql2,mysql3 dim stu_number,stu_name,stu_direction,stu_value,stu_class1 dim topic_number,topic_name,topic_teacher,topic_book,topic_memo dim i附錄 39。 i=0 studnumber=request(studnumber) 39。topic=(topiame) 39。mysql=select * from 選題表 order by 學(xué)生學(xué)號 39。set objrs=getsqlrecordset(mysql,) 39。do while not 39。sele_number=objrs(sele_number) set objrs1=nothing 39。set objconn=nothing mysql=select * from 學(xué)生表 where 學(xué)生學(xué)號=39。amp。studnumberamp。39。 set objrs1=getsqlrecordset(mysql,) if not then stu_number=objrs1(學(xué)生學(xué)號) stu_name=objrs1(學(xué)生姓名) stu_direction=objrs1(專業(yè)) stu_value=objrs1(學(xué)歷) stu_class=objrs1(班級) else session(admi_msg)=不存在 end if dim topiame topiame=(topiame) mysql=select * from 設(shè)計課題表 where 課題名=39。amp。topiameamp。39。 set objrs2=getsqlrecordset(mysql,) if not then topic_number=objrs2(課題代號) topic_name=objrs2(課題名) topic_teacher=objrs2(指導(dǎo)教師) topic_memo=objrs2(答疑時間) topic_book=objrs2(課題任務(wù)書) else session(admi_msg)=不存在 end if set objrs3=nothing 39。set objconn=nothing if (tijiao)=提交 then set objrs2=nothing mysql2=select * from 選題結(jié)果表 where 學(xué)生學(xué)號=39。amp。studnumberamp。39。 set objrs2=getsqlrecordset(mysql2,) if not then畢業(yè)設(shè)計綜合管理系統(tǒng) 提示：已經(jīng)提交此記錄！amp。forminput type=39。submit39。 name=39。close39。 value=39。返回39。 onclick=39。(1)39。/form end if mysql=insert into 選題結(jié)果表 (學(xué)生學(xué)號,學(xué)生姓名,專業(yè),學(xué)歷,班級,課題代號,課題名,指導(dǎo)教師,答疑時間,任務(wù)書) mysql=mysqlamp。 values(39。amp。stu_numberamp。39。,39。amp。stu_nameamp。39。,39。amp。stu_directionamp。39。,39。amp。stu_valueamp。39。,39。amp。stu_classamp。39。,amp。topic_numberamp。,39。amp。topic_nameamp。39。,39。amp。topic_teacheramp。39。,39。amp。topic_memoamp。39。,39。amp。topic_bookamp。39。) set objrs3=getsqlrecordset(mysql,) session(admin_topic)=提交成功！ end if if (tijiao)=修改 then set objrs2=nothing mysql2=select * from 選題結(jié)果表 where 學(xué)生學(xué)號=39。amp。studnumberamp。39。 set objrs2=getsqlrecordset(mysql2,) if then 提示：還沒提交記錄，不能進(jìn)行操作！amp。forminput type=39。submit39。 name=39。close39。 value=39。返回39。 onclick=39。(1)39。/form end if mysql=update 選題結(jié)果表 set 課題名=39。amp。topiameamp。39。 where 學(xué)生學(xué)號=39。amp。studnumberamp。39。 set objrs4=getsqlrecordset(mysql,) session(admin_topic)=修改成功！ end if () 39。i=i+1 39。 39。loop set objrs=nothing set objrs1=nothing set objrs2=nothing set objrs3=nothing set objconn=nothing %附錄A5刪除選題信息：% dim student_number,mysql student_number=request(student_number) topic1=cint(session(topic1)) mysql=delete from 選題表 where 學(xué)生學(xué)號=39。amp。student_numberamp。39。 set objrs=getsqlrecordset(mysql,) set objrs=nothing mysql=update 設(shè)計課題表 set 限選人數(shù)=限選人數(shù)+1 where 課題代號=amp。topic1amp。 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。amp。bbs_nameamp。39。,39。amp。bbs_idamp。39。,39。amp。bbs_duixiangamp。39。,39。amp。bbs_titleamp。39。,39。amp。bbs_contentamp。39。,39。amp。bbs_dateamp。39。)set myobj=getsqlrecordset(mysql,)() end sub%第 37 頁 （共51頁）