【導(dǎo)讀】修改、刪除、統(tǒng)計等操作。每次考試結(jié)束，老師們總要統(tǒng)計大量的學(xué)生成績，對學(xué)生成績的處理，成績要有審核功能；能夠生成各種成績單，成績冊，補(bǔ)考通。知單，排序表等表格及上報的統(tǒng)計表。常?；ǘ€多月甚至更長的時間，獲得的數(shù)據(jù)無法及時指導(dǎo)教學(xué)。行深入研究成為現(xiàn)實(shí)。根據(jù)學(xué)校實(shí)際要求，即可實(shí)現(xiàn)學(xué)生基本信息、成績的錄入，查詢，刪除，修改以及成績的統(tǒng)計分析等幾方面功能。和運(yùn)行動態(tài)的、交互的、高性能的web服務(wù)器應(yīng)用程序”。件來擴(kuò)充ASP的功能。量大且枯燥無味，工作人員易于疲勞。平均成績、個人總分及平均成績；還要填寫補(bǔ)考統(tǒng)計表、各科補(bǔ)考名單等。提高了成績管理工作的效率，減少了教務(wù)管理人員的手工勞動，當(dāng)程序執(zhí)行完畢后，由第三方所提供的其他腳本語言，譬如REXX、Perl、Tcl等。

　　

【正文】 tr td width=375 align=right專業(yè)： /td td width=375 align=left % if request(stdep) then % select size=1 name=stmajor onchange=change1() option 請選擇 /option %do while not % option %if trim(request(stmajor))=trim(myrs(stmajor)) then selected end if % value=%=myrs(stmajor)%%=myrs(stmajor)%/option % loop else set rs3=()% % sql3=select * from major % % sql3,conn,1,1%select size=1 name=stmajor option 請選擇 /option %do while not % option value=%=rs3(stmajor)%%=rs3(stmajor)%/option %% %loop% % end if % /select/td /tr tr td width=375 align=right班級： /td td width=375 align=left % if request(stmajor) and request(qq)=2 then if not then % select size=1 name=stclass onchange=change1() option 請選擇 /option %do while not % option %if request(stclass)=myrs1(stclass) then selected end if % value=%=myrs1(stclass)%%=myrs1(stclass)%/option % loop end if else set rs3=()% %sql3=select * from class% % sql3,conn,1,1%select size=1 name=stclass option 請選擇 /option %do while not % option value=%=rs3(stclass)%%=rs3(stclass)%/option %% %loop% % end if % /select/td /tr tr td width=375 align=right學(xué)期： /td td width=375 align=leftinput type=text name=testno size=20/td /tr tr td width=375 align=right課程： /td td width=375 align=leftinput type=text name=subject size=20/td /tr tr td width=375 align=right成績： /td td width=375 align=leftinput type=text name=ach size=20/td /tr tr td width=750 colspan=2 p align=center input type=submit value=確定 name=B1 input type=reset value=取消 name=B2 /td /tr /table /form /td /tr /table /center /div !include file= /body /html 下面是 ： !include file= % if session(user)= then 您無此權(quán)限 end if % % dim user_number,user_name,user_dep,user_major,user_class,testno,subject,ach user_number=trim(request(user_number)) user_name=trim(request(user_name)) user_dep=trim(request(stdep)) user_major=trim(request(stmajor)) user_class=trim(request(stclass)) testno=trim(request(testno)) subject=trim(request(subject)) ach=trim(request(ach)) % %if ach0 or ach100 then script language=39。javascript39。(39。所輸成績有誤，請重新輸入！ 39。)/script else % % set rs=() sql=select * from ach where user_number=39。amp。user_numberamp。39。 sql,conn,1,3 % % rs(user_number)=user_number rs(user_name)=user_name rs(user_dep)=user_dep rs(user_major)=user_major rs(user_class)=user_class rs(testno)=testno rs(subject)=subject rs(ach)=ach set rs=nothing % % set rs1=() sql1=select * from total_ach where user_number=39。amp。user_numberamp。39。 sql1,conn,1,3 if not then rs1(total_ach)=rs1(total_ach)+ach set rs1=nothing script language=39。javascript39。(39。成績已經(jīng)成功添加到成績表和總分表！ 39。)/script else rs1(user_number)=user_number rs1(user_name)=user_name rs1(user_dep)=user_dep rs1(user_major)=user_major rs1(user_class)=user_class rs1(testno)=testno rs1(subject)=subject rs1(total_ach)=total_ach set rs1=nothing script language=39。javascript39。(39。成績已經(jīng)成功添加到成績表和總分表！ 39。)/script end if end if % 刪除考試成績功能的實(shí)現(xiàn) 在瀏覽學(xué)生成績時，如果要刪除某個成績信息時，可以點(diǎn)擊此成績信息后的“刪除”按紐，執(zhí)行 ，這樣此成績信息就會從成績表和總分表中刪除。 ： !include file= % if session(user)= then 您無此權(quán)限 end if % % if session(user)=reader then end if % % dim id id=trim(request(id)) set rs=() sql=select * from ach where id=amp。 id sql,conn,1,3 user_number=rs(user_number) ach=rs(ach) % % set rs=nothing % % set rs1=() sql1=select * from total_ach where user_number=39。amp。user_numberamp。39。 sql1,conn,1,3 % % rs1(total_ach)=rs1(total_ach)ach if rs1(total_ach)=0 then end if % 查詢考試成績功能的實(shí)現(xiàn) 在查詢考試成績界面 ，信息被提交到相應(yīng)的處理頁面。如果選擇的是“按學(xué)號、課程、學(xué)期查詢”，則信息被提交到 ；如果選擇的是“按系部、專業(yè)、班級、課程、學(xué)期查詢”，則信息被提交到 ；如果選擇的是“按姓名、學(xué)期查詢”，則信息被提交到 。 中的代碼如下： !include file= % if session(user)= then 您無此權(quán)限 end if % % dim user_number,subject,testno user_number=trim(request(user_number)) subject=trim(request(subject)) te