【正文】 rm)%amp。field=%=request(field)%amp。mm=%=(mm1)%amp。yy=%=yy% font face=webdings style=color:000000 title=上一月3/font /a td width=130 align=center style=FONT:9pt Verdana,Geneva,sansserif。color:CD0101 b%=yy% 年 amp。nbsp。 %=mm% 月/b td width=30 align=center a href=?form=%=request(form)%amp。field=%=request(field)%amp。mm=%=(mm+1)%amp。yy=%=yy% font face=webdings style=color:000000 title=下一月4/font /a td width=30 align=center a href=?form=%=request(form)%amp。field=%=request(field)%amp。yy=%=(yy+1)%amp。mm=%=mm% font face=webdings style=color:000000 title=下一年8/font /a /table tr bgcolor=ffffff height=20 td width=35 align=center bgcolor=FFF4F4 style=color:ff6633。日 td width=35 align=center bgcolor=FFF4F4一 td width=35 align=center bgcolor=FFF4F4二 td width=35 align=center bgcolor=FFF4F4三 td width=35 align=center bgcolor=FFF4F4四 td width=35 align=center bgcolor=FFF4F4五 td width=35 align=center bgcolor=FFF4F4六 % if week10 then tr for i=1 to week1 td width=35 height=20 bgcolor=ffffffamp。nbsp。 next end if for i=1 to mms if (i+week11) mod 7=0 then tr td width=35 height=20 align=center bgcolor=ffffff onmousemove==39。ececec39。 onmouseout==39。ffffff39。 if cdate(yy amp。 amp。 mm amp。 amp。 i)=date() then % input type=button value=%=i% style=BORDER:CD0101 1px groove。width:30。height:16。fontsize:9pt。backgroundcolor:FFD9D9。color:CD0101 onclick=javascript:getDay(39。%=yy%%=mm%%=i%39。)。 title=%=yy%年%=mm%月%=i%日（今天） % else % input type=button value=%=i% style=BORDER:000000 1px groove。width:30。height:16。fontsize:9pt。backgroundcolor:ffffff。color:000000 onclick=javascript:getDay(39。%=yy%%=mm%%=i%39。)。 title=%=yy%年%=mm%月%=i%日 % end if next if (mms+week1) mod 70 then for i=1 to (7((mms+week1) mod 7)) td width=35 height=20 bgcolor=ffffffamp。nbsp。 next end if % /table/body /html:(桌面實(shí)現(xiàn)代碼)! include file= htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312 /title進(jìn)銷(xiāo)存信息管理系統(tǒng) 桌面/titlelink href= rel=stylesheet type=text/css/headbody background=images/table width=100% border=0 cellspacing=0 cellpadding=0 height=100% tr td align=center valign=middletable width=582 border=0 cellspacing=0 cellpadding=0 tr td width=582 height=277font color=magenta size=4 系統(tǒng)功能:br amp。nbsp。amp。nbsp。(1)學(xué)生信息管理:包括學(xué)生信息的登記,查詢(xún)及維護(hù)功能br amp。nbsp。amp。nbsp。(2)綜合測(cè)評(píng)信息管理:學(xué)生各方面素質(zhì)分?jǐn)?shù)的錄入,系統(tǒng)會(huì)自動(dòng)計(jì)算綜合分?jǐn)?shù),并可以修改和刪除br amp。nbsp。amp。nbsp。(3)信息查詢(xún):提供學(xué)生信息和測(cè)評(píng)信息的查詢(xún)br amp。nbsp。amp。nbsp。(4)系統(tǒng)設(shè)置:可以設(shè)置系統(tǒng)的登陸密碼，對(duì)學(xué)生的專(zhuān)業(yè)和學(xué)期信息進(jìn)行設(shè)置。brBr brbr /td /tr /table/td /tr/table/body/html:(學(xué)生測(cè)評(píng)信息添加功能代碼)% if session(userName) = then end if%!include file=% on error resume next dim studentNumber,termId,moralScore,theoryScore,healthScore,praticeScore,integrateScore,evaluation,sqlString dim errMessage 39。保存業(yè)務(wù)錯(cuò)誤信息 errMessage = submit = Request(submit) if Request(submit) then studentNumber = Request(studentNumber) 39。取得學(xué)號(hào) termId = Request(termId) 39。取得所在學(xué)期 moralScore = CSng(Request(moralScore)) 39。取得思想道德分?jǐn)?shù) theoryScore = CSng(Request(theoryScore)) 39。取得專(zhuān)業(yè)理論分?jǐn)?shù) healthScore = CSng(Request(healthScore)) 39。取得身體素質(zhì)的分?jǐn)?shù) humanityScore = CSng(Request(humanityScore)) 39。取得人文素質(zhì)分?jǐn)?shù) practiceScore = CSng(Request(practiceScore)) 39。取得創(chuàng)新與實(shí)踐分?jǐn)?shù) evaluation = Trim(Request(evaluation)) 39。取得對(duì)該學(xué)期該生的評(píng)價(jià) 39。首先檢查管理員輸入的學(xué)號(hào)信息存在不 sqlString = select * from [studentInfo] where studentNumber=39。 amp。 studentNumber amp。 39。 set studentRs = (sqlString) if then errMessage = 該學(xué)號(hào)的學(xué)生不存在! end if 39。再檢查是否已經(jīng)選擇了學(xué)期信息 if errMessage = then if Request(termId) = then errMessage = 對(duì)不起,你沒(méi)有選擇學(xué)期信息 end if end if 39。其次檢查該學(xué)期該學(xué)生的綜合測(cè)評(píng)信息是否已經(jīng)添加了 if errMessage = then sqlString = select * from [evaluationInfo] where studentNumber=39。 amp。 studentNumber amp。 39。 sqlString = sqlString amp。 and termId= amp。 termId set evaluationRs = (sqlString) if not then errMessage = 該學(xué)期該學(xué)生的測(cè)評(píng)信息已經(jīng)添加了! end if end if 39。如果存在業(yè)務(wù)錯(cuò)誤信息 if errMessage then scriptalert(39。 amp。 errMessage amp。 39。)/script else 39。下面開(kāi)始計(jì)算該生的綜合分?jǐn)?shù) integrateScore = moralScore * + theoryScore * + healthScore * + humanityScore * + practiceScore * 39。然后將學(xué)生綜合測(cè)評(píng)信息加入到數(shù)據(jù)庫(kù)中 sqlString = insert into [evaluationInfo] (studentNumber,termId,moralScore,theoryScore,healthScore,humanityScore,practiceScore,integrateScore,evaluation) values (39。 sqlString = sqlString amp。 studentNumber amp。 39。, sqlString = sqlString amp。 termId amp。 , sqlString = sqlString amp。 moralScore amp。 , sqlString = sqlString amp。 theoryScore amp。 , sqlString = sqlString amp。 healthScore amp。 , sqlString = sqlString amp。 humanityScore amp。 , sqlString = sqlString amp。 practiceScore amp。 , sqlString = sqlString amp。 integrateScore amp。 ,39。 sqlString = sqlString amp。 evaluation amp。 39。) (sqlString) end if if (0 and errMessage) then scriptalert(39。信息添加時(shí)發(fā)生了錯(cuò)誤!39。)/script elseif (=0 and errMessage=) then scriptalert(39。測(cè)評(píng)信息添加成功!39。)/script end if end if %HTMLHEAD Title測(cè)評(píng)信息添加大學(xué)生測(cè)評(píng)信息管理系統(tǒng)/Title META equiv=ContentType content=text/html。 charset=gb2312style type=text/css! @import url()。/stylescript language=javascriptfunction chkForm() { if( == ) { alert(學(xué)號(hào)不能為空!)。 ()。 return false。 } return true。}/script/HEADBODYtable width=600 border=0 cellpadding=0 cellspacing=0 align=center form action= method=post name=form1 onsubmit=return chkF