【導(dǎo)讀】動(dòng)態(tài)網(wǎng)頁(yè)技術(shù)開(kāi)發(fā)而成的網(wǎng)上評(píng)教系統(tǒng)。該系統(tǒng)克服了傳統(tǒng)評(píng)教模式的缺陷，突出了交互。性、實(shí)時(shí)性、有效性和人性化等特點(diǎn)。并對(duì)考評(píng)項(xiàng)目進(jìn)行細(xì)化，使之準(zhǔn)確。明了，便于學(xué)生理解。其次，學(xué)生在一個(gè)學(xué)期當(dāng)中，可隨時(shí)登陸評(píng)教網(wǎng)站修改自己的評(píng)教數(shù)據(jù)。評(píng)教一次，否則，將失去查詢(xún)成績(jī)的資格。導(dǎo)可以查閱，且查閱的只是統(tǒng)計(jì)結(jié)果，看不到學(xué)生個(gè)人信息。本系統(tǒng)實(shí)現(xiàn)了以下主要功能：；；；

　　

【正文】 } } } //取得查詢(xún)條件，并提交； function getVal(){ 學(xué)院工學(xué)學(xué)士學(xué)位論文 第 6 章 詳細(xì)設(shè)計(jì)階段 47 var gettxt,Setable。 gettxt = 。 var path = 。 //取得頁(yè)面鏈接和文件名 var line = (/)。 //取得最后一個(gè) 39。/39。的位置 var dot = (.)。 //取得第一個(gè) 39。.39。的位置 var Name = (line+1,dot)。 //取得文件名 var fileName = Name + .asp。 for (i=1。i。i++){ gettxt = gettxt+ + [i].value 。} var valLeng=( )。 gettxt=(0,valLeng)。 //去掉條件子句的最后一個(gè)關(guān)系運(yùn)算符 Setable = 。 // (fileName+39。?gettxt=39。+gettxt,39。_self39。)。 //向當(dāng)前頁(yè)面?zhèn)魉筒樵?xún)條件子句 = gettxt。 = fileName。 ()。 信息登陸修改模塊： 管理 用戶(hù)錄入 投票 所需要的內(nèi)容，包含 問(wèn)題選項(xiàng) 、 學(xué)生信息 、 教師信息 、部門(mén)、發(fā)布日期等，同時(shí)從登錄模塊得到用戶(hù)名，這些信息將被寫(xiě)入數(shù)據(jù)庫(kù)中保存。該模塊還負(fù)責(zé)編輯狀態(tài)下的更新，這時(shí)，它將根據(jù)取得的 Title 字段值對(duì)頁(yè)面控件初始化。 主要代碼： //IsRegUserOk 函數(shù)：判斷用戶(hù)是否已經(jīng)注冊(cè)和密碼是否正確 public bool IsRegUserOk() { string name=()。 string pwd=()。 學(xué)院工學(xué)學(xué)士學(xué)位論文 第 6 章 詳細(xì)設(shè)計(jì)階段 48 //建立 /打開(kāi)數(shù)據(jù)庫(kù)連接 SqlConnection conn=new SqlConnection()。 =server=(local)。uid=sa。pwd=。dat abase=jxdb。 ()。 //建立 sql 字符串 string sql=select * from reg where name=39。+name+39。 SqlDataReader dr。 SqlCommand cmd=new SqlCommand(sql,conn)。 dr=()。 //保留用戶(hù)注冊(cè)與否信息 bool isRegUserExist=()。 //關(guān)閉 DataReader ()。 //取得用戶(hù)名的密碼 string sqlBoth=select * from reg where name=39。+name+39。 sqlBoth+=and pwd=39。+pwd+ 39。 SqlCommand cmdBoth=new SqlCommand(sqlBoth,conn)。 SqlDataReader drBoth。 drBoth=()。 //保留用戶(hù)名 +密碼同時(shí)存在信息 bool isBothExist=()。 //關(guān)閉 DataReader ()。 ()。 //判斷用戶(hù)是否注冊(cè) if(!isRegUserExist) { (scriptalert(39。此用戶(hù)尚未注冊(cè)！ 39。))。 學(xué)院工學(xué)學(xué)士學(xué)位論文 第 6 章 詳細(xì)設(shè)計(jì)階段 49 return false。 } //判斷用戶(hù)名與密碼是否一致 else if(!isBothExist) { (scriptalert(39。用戶(hù)名和密碼不一致 ,不能進(jìn)入！ 39。))。 return false。 } else return true。 } 留言模塊 ： 學(xué)生成功登陸后可以點(diǎn)擊教師的姓名，然后出來(lái)一個(gè)留言的選項(xiàng)，如果學(xué)生希望用文字的形式給教師提供意見(jiàn)的話，可以寫(xiě)下來(lái)，然后提交，如果提交成功的話，留言則已經(jīng)形成，教師如果登陸的話將會(huì)顯示有最新留言需要閱讀。留言不是每個(gè)學(xué)生必須的選項(xiàng)，只是除了選項(xiàng)之外，給老師和學(xué)生提供更具有自由度交流的平臺(tái)，所以同樣教師可以根據(jù)留言進(jìn)行自我測(cè)評(píng)，給學(xué)生以反饋信息。 關(guān)鍵代碼如下： If ErrCodes= Then Dim dv_ubb,abgcolor Set dv_ubb=new Message_UbbCode SELECT Case Request(action) Case new (Message)= IF id Then title=RW: SqlStr=SELECT id,title,content,incept,sender,sendtime FROM 學(xué)院工學(xué)學(xué)士學(xué)位論文 第 6 章 詳細(xì)設(shè)計(jì)階段 50 Dv_Message WHERE incept=39。amp。amp。39。 And id=amp。(id) temptxt=(56) End If =ActInfo(0) 39。發(fā)送短信 call sendmsg() =ActInfo(3) 39。轉(zhuǎn)發(fā)短信 SqlStr=SELECT id,title,content,incept,sender,sendtime FROM Dv_Message WHERE (incept=39。amp。amp。39。 or sender=39。amp。amp。39。) And id=amp。(id) temptxt=(57) call sendmsg() Case edit (Message)= =ActInfo(4) 39。修改短信 SqlStr=SELECT id,title,content,incept,sender,sendtime FROM Dv_Message WHERE sender=39。amp。 amp。39。 And issend=0 And id=amp。(id) call sendmsg() Case savedit Call savedit() Case ActInfo(12) 39。清空垃圾箱 =ActInfo(12) Call AllDelrecycle() Case Else ErrCodes=ErrCodes+li+(51) 學(xué)院工學(xué)學(xué)士學(xué)位論文 第 6 章 詳細(xì)設(shè)計(jì)階段 51 End SELECT End If 打印 模塊 ： 我們通過(guò)調(diào)用操作系統(tǒng)本身的打印功能來(lái)實(shí)現(xiàn) 代碼如下： input name=Button type=button class=button value=打印問(wèn)卷 onClick=JavaScript:(6,6) input name=Button2 type=button class=button value=打印預(yù)覽 onClick=JavaScript:docu (7,1) input name=Button22 type=button class=button value=打印設(shè)置 onClick=JavaScript:(8,1) 統(tǒng)計(jì)報(bào)表模塊 ： 通過(guò)對(duì)數(shù)據(jù)庫(kù)的操作來(lái)統(tǒng)計(jì)數(shù)據(jù)，生成圖表（如直方圖，餅圖。） 關(guān)鍵代碼： Dim sessionID sessionID= Dim site_On_timeout Dim site_connString,site_conn site_connString=Provider=。Data Source=amp。() Set site_conn=() site_connString Dim site_On_deletetime site_On_deletetime=Dateadd(n, site_On_timeout, Now()) (delete * from [session] where posttime amp。site_On_deletetimeamp。) Dim site_On_sql0,site_On_checkrs site_On_sql0=select sess from [session] where sess=39。amp。 sessionID amp。39。 學(xué)院工學(xué)學(xué)士學(xué)位論文 第 6 章 詳細(xì)設(shè)計(jì)階段 52 set site_On_checkrs=(site_On_sql0) If Then Dim site_On_sql site_On_sql=insert into [session] (sess,posttime) values(39。amp。 sessionID amp。39。, 39。amp。 Now() amp。39。) (site_On_sql) Dim site_Vs_sql site_Vs_sql=update [site] set Visitor=Visitor+1 (site_Vs_sql) End If set site_On_checkrs=nothing Dim site_On_sql2,site_On_rs site_On_sql2=select count(sess) from [session] Set site_On_rs=(site_On_sql2) Dim site_On_output site_On_output=site_On_rs(0) Set site_On_rs=nothing Dim site_On_sql3,site_On_rspredel,site_On_predeltime site_On_sql3=select * from [session] Set site_On_rspredel=(site_On_sql3) Do until site_On_predeltime=DateDiff(n, site_On_rspredel(posttime), Now()) If site_On_predeltime site_On_timeout Then site_On_output=site_On_output1 End If 學(xué)院工學(xué)學(xué)士學(xué)位論文 第 6 章 詳細(xì)設(shè)計(jì)階段 53 Loop Set site_On_rspredel=nothing 餅圖報(bào)表的實(shí)現(xiàn)代碼； intSettledAngle=0 intRectStart=0 for i=0 to ubound(ArrNum) intAngle=(arrNum(i)/intTotal)*360 39。一個(gè)一個(gè)的畫(huà) 扇區(qū)，最終合成一個(gè)完整的 圓 set Image=DrawSinglePie(Image, 360intSettledAngle,arrColor(i)) 39。在圖象的最下方 對(duì)圖象內(nèi)容進(jìn)行描述 =arrColor(i) intRectStart+10*(i+1),250,intRectStart+10*(i+1)+10,260 arrText(i), intRectStart+10*(i+1)+10,245,false 39。在圖象的最下方 對(duì)圖象內(nèi)容進(jìn)行描述 =arrColor(i) intRectStart+10*(i+1),270,intRectStart+10*(i+1)+10,280 cstr(intAngle) amp。 %, intRectStart+10*(i+1)+10, 265,false intRectStart=intRectStart+50 intSettledAngle=intSettledAngle + intAngle next =() set Image=nothing 學(xué)院工學(xué)學(xué)士學(xué)位論文 第 6 章 詳細(xì)設(shè)計(jì)階段 54 img src= End Function function DrawSinglePie(Image,intAngle,intColor) 39。函數(shù)功能： 根據(jù)指定的 角度和顏色