【正文】 amp。 chr(13) amp。)。 /script set rs=nothing % %end if% %if request(kind)=0 then if request(username)= or request(password)= then script language=JavaScript amp。amp。記錄更新成功39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。 () amp。 alert(39。xhamp。 amp。 chr(13) amp。)。nn% option%if lx100= 必修課 then ( selected)%必修課 /option option%if lx100= 選修課 then ( selected)%選修課 /option option%if lx100= 限修課 then ( 畢業(yè)設(shè)計(jì)（論文） 29 selected)%限修課 /option /select /td /tr % loop end if set rs=nothing next % tr td height=25 colspan=7 div align=center input type=hidden name=max value=%=nn% input type=hidden name=number value=%=fs100% input type=submit name=Submit value=提交 input type=reset name=Submit2 value=重置 /div/td /tr /table /form /div/td /tr trtd div align=center form name=form2 method=post action= table width=752 border=0 align=center cellpadding=0 cellspacing=0 class=unnamed1_rld tr align=center 畢業(yè)設(shè)計(jì)（論文） 30 td width=100 bgcolor=E4E4E4 快速填表：/tdtd班級(jí) /td td份數(shù) /tdtd學(xué)號(hào) /td td姓名 /td td課程 /td td成績(jī) /td td學(xué)期 /td td類(lèi)型 /td /tr tr align=center tdinput type=submit name=Submit3 value=提交 input type=reset name=Submit22 value=重置 /td td width=100 select name=bj100 id=bj100 % set rs1=() sql1=select * from bjb sql1,conn,1,1 do while not % option %if bj100=rs1(bj) then ( selected)%%=rs1(bj)%/option % loop set rs1=nothing % /select /td tdinput name=fs100 type=text id=fs100 size=1 value=1/td tdinput name=xh100 type=text id=xh100 畢業(yè)設(shè)計(jì)（論文） 31 size=10/td tdinput name=user100 type=text id=user100 size=10/td tdinput name=kc100 type=text id=kc100 size=10/td tdinput name=cj100 type=text id=cj100 size=10/td tdselect name=xq100 id=xq100 option%if xq100= 第一學(xué)期 then ( selected)%第一學(xué)期 /option option%if xq100= 第二學(xué)期 then ( selected)%第二學(xué)期 /option option%if xq100= 第三學(xué)期 then ( selected)%第三學(xué)期 /option option%if xq100= 第四學(xué)期 then ( selected)%第四學(xué)期 /option option%if xq100= 第五學(xué)期 then ( selected)%第五學(xué)期 /option option%if xq100= 第六學(xué)期 then ( selected)%第六學(xué)期 /option option%if xq100= 第七學(xué)期 then ( selected)%第七學(xué)期 /option option%if xq100= 第八學(xué)期 then ( selected)%第八學(xué)期 /option /select/td tdselect name=lx100 id=lx100 option必修課 /option option選修課 /option option限修課 /option /select/td /tr tr align=center td colspan=9table width=100% border=0 cellspacing=0 畢業(yè)設(shè)計(jì)（論文） 32 cellpadding=0 tr td width=80% /td td width=20% align=centera href=?kind=new添加單個(gè)成績(jī) /a/td /tr /table/td /tr /table /form /div /td/tr /table % set conn=nothing % !include file=inc/ 修改與刪除（代碼） %if session(password) or session(pwd) then% % dim IID IID=request(id) % %if request(kind)=1 then% ! include file=inc/ % if request(xh)= then script language=JavaScript amp。nn% type=text id=kc1 value=% if kc100= then (rs(kc)) else (kc100) end if% size=15 畢業(yè)設(shè)計(jì)（論文） 28 /td td width=100 height=25 div align=center input name=cj%=jamp。nn% option==請(qǐng)選擇 ==/option % set rs1=() sql1=select * from bjb sql1,conn,1,1 do while not % option % if bj100=rs1(bj) then ( selected)%%=rs1(bj)%/option % loop set rs1=nothing % /select /td td width=100 div align=center input name=xh%=jamp。amp。amp。amp。mid(bj100,t,1) next fs100=(fs100) xh100=(xh100) user100=(user100) cj100=(cj100) kc100=(kc100) xq100=(xq100) if xq100= then xq100=第一學(xué)期 lx100=(lx100) % table width=752 border=0 align=center cellpadding=0 cellspacing=0 tr 畢業(yè)設(shè)計(jì)（論文） 26 td width=752 div align=center form name=form1 method=post action=?type=news table width=752 border=0 cellpadding=0 cellspacing=0 class=unnamed1_rld tr class=unnamed_rld2 td height=25 align=center bgcolor=CCCCCC 班級(jí)/td td align=center bgcolor=E4E4E4學(xué)號(hào) /td td align=center bgcolor=CCCCCC姓名 /td td align=center bgcolor=E4E4E4課程 /td td align=center bgcolor=CCCCCC成績(jī) /td td align=center bgcolor=E4E4E4學(xué)期 /td td align=center bgcolor=CCCCCC類(lèi)型 /td /tr % if fs100= then fs100=1 for j=1 to fs100 nn=0 set rs=() conn = DBQ= + () + 。DRIVER={Microsoft Access Driver (*.mdb)}。