【文章內容簡介】 orm()。 tr class=a1 style=color:ffffff。fontsize:12px。 th height=30 style=color:ffffff。fontsize:14px colspan=8img src=images/ border=0 hspace=2 align=absmiddle綜合測評信息添加 font size=1(帶*號的為必填項)/font/th /tr tr class=a3td width=100 align=right學號:/tdtdamp。nbsp。amp。nbsp。input type=text name=studentNumber size=20 onkeyup=value=(/[^\d]/g,39。39。) onbeforepaste=(39。text39。,(39。text39。).replace(/[^\d]/g,39。39。))font color=red*/font/td/tr /tr trtd width=100 align=right所在學期:/tdtdamp。nbsp。amp。nbsp。 select name=termId option value=請選擇學期/option % sql = select * from termInfo set termInfoRs = (sql) while not option value=39。 amp。 termInfoRs(termId) amp。 39。 amp。 termInfoRs(termName) amp。 /option wend % /select/td/tr tr class=a3td width=100 align=right思想道德素質分:/tdtdamp。nbsp。amp。nbsp。input type=text name=moralScore size=10分(滿分100分)/td/tr tr class=a3td width=100 align=right專業(yè)理論素質分:/tdtdamp。nbsp。amp。nbsp。input type=text name=theoryScore size=10分(滿分100分)/td/tr tr class=a3td width=100 align=right身體素質分:/tdtdamp。nbsp。amp。nbsp。input type=text name=healthScore size=10分(滿分100分)/td/tr tr class=a3td width=100 align=right人文素質分:/tdtdamp。nbsp。amp。nbsp。input type=text name=humanityScore size=10分(滿分100分)/td/tr tr class=a3td width=100 align=right創(chuàng)新與實踐素質分:/tdtdamp。nbsp。amp。nbsp。input type=text name=practiceScore size=10分(滿分100分)/td/tr trtd width=100 align=right對該生評價:/tdtdamp。nbsp。amp。nbsp。textarea cols=40 rows=5 name=evaluation/textarea/td/tr tr bgcolor=fffffftd colspan=2 align=centerinput type=submit name=submit value=添加amp。nbsp。amp。nbsp。input type=reset value=取消/td/tr /form/tablebr/BODY/HTML:(學生測評信息刪除)% if session(username)= then end if%!include file=% 39。取得要刪除測評記錄的id號集合evaluationIds = Request(evaluationIds)sqlString = delete from [evaluationInfo] where evaluationId in ( amp。 evaluationIds amp。 ) sqlStringset conn=nothingSCRIPT language=JavaScriptalert(39。刪除成功！39。)。/script script=39。39。/script%:(學生信息管理)% if session(username) = then end if%!include file=HTMLHEAD Title學生信息管理大學生綜合測評信息管理系統(tǒng)/Title META equiv=ContentType content=text/html。 charset=gb2312style type=text/css! @import url()。/stylescript language=Javascriptfunction checkall(all)//用于判斷全選記錄的函數(shù){ var a = (answer)。 for (var i=0。 i。 i++) a[i].checked = 。}function del () //用于判斷記錄有沒有選中的函數(shù){ var flag=true。 var temp=。 var tmp。 if((+) == undefined) {tmp=1}else{tmp=} if (tmp==1){ if (){ flag=false。 temp=。 } }else{ for (i=0。i。i++) { if ([i].checked){ if (temp==) { flag=false。 temp=[i].value。 }else{ flag=false。 temp = temp +,+ [i].value。 } } } } if (flag){ alert(對不起，你還沒有選擇！)} else{ if (confirm(確實要刪除？)){ =?evaluationIds= + temp。 } } return !flag。}function test(){ if (== || isNaN()) { alert(輸入頁數(shù)必須為數(shù)值型)。 ()。 return false。 } return true。}/script/HEADBODY% dim sqlString,rscount,lastpage,currentpage,nextpage,pagesize,frontpage,i39。skipcount。 pagesize = 8 sqlString = select count(*) as rscount from evaluationView 39。查詢總的學生信息記錄數(shù) if Request(searchWay) 請選擇查詢方式 and Request(searchWay) then sqlString = sqlString amp。 where amp。 Request(searchWay) amp。 like 39。% amp。 Request(keyword) amp。 %39。 end if set rs = (sqlString) rscount = CInt(rs(rscount)) if (0=(rscount mod pagesize)) then lastpage = rscount \ pagesize else lastpage = rscount \ pagesize + 1 end if currentpage = Request(pageno) if currentpage = then currentpage = 1 else currentpage = CInt(currentpage) end if if (currentpage 1 or currentpage lastpage) then currentpage = 1 end if if currentpage = 1 then frontpage = 1 else frontpage = currentpage 1 end if if currentpage = lastpage then nextpage = lastpage else nextpage = currentpage + 1 end if 39。skipcount = pagesize * (currentpage 1) 39。do while skipcount0 39。 39。skipcount = skipcount 1 39。if then 39。 Exit do 39。 end if 39。Loop%!table width=600 border=0 cellpadding=0 cellspacing=2 align=centertr td height=21amp。nbsp。img src=Images/ico/ width=32 height=32 hspace=2 vspace=2 align=absmiddlefont size=+1strong 學生信息管理/strong/font/td /tr/table table width=600 border=39。139。 align=center cellpadding=39。039。 cellspacing=39。039。 bordercolor=F0F0F0 id=TabDocMain tr class=a1 style=color:ffffff。fontsize:12px。 th height=30 style=color:ffffff。fontsize:14px colspan=8img src=images/ border=0 hspace=2 align=absmiddle測評信息維護/th /tr form method=POST id=form1 name=form1 tr td width=50 height=20 align=center 刪除框 /td td width=100 height=20 align=center學號/td td width=60 height=20 align=center姓名/td td width=140 height=20 align=center專業(yè)/td td width=110 height=20 align=center學期/td td width=60 height=20 align=center綜合分/td td width=80 height=20 align=center操作/td /tr % sqlString = select * from evaluationView if Request(searchWay) 請選擇查詢方式 and Request(searchWay) then sqlString = sqlString amp。 where amp。 Request(searchWay) amp。 like 39。% amp。 Request(keyword) amp。 %39。 end if set rs=() sqlString,conn,1,2 if(not ) then = pagesize = currentpage For i = 1 To % tr td height=20 align=centerinput type=checkbox name=answer value=%=rs(evaluationId)% id=Checkbox1/td td heig