【正文】 td colspan=2 input type=hidden name=kind value=2 input type=submit name=Submit value=提交 input type=reset name=Submit2 value=清 除 /td /tr tr td colspan=2 注意： 填寫 完后 請 自行確 認(rèn) /td /tr /table/form /td /tr tr td height=25 align=center班 級 及其 學(xué)號啟 始代 碼瀏覽 及修改/td 畢業(yè)設(shè)計（論文） 16 /tr tr td table width=752 border=39。 DPath sqlad=select * from bjb order by xhf sqlad,connad,1,2 do while not ( or ) i=i+1 % td align=center width=96 nowrapa title=%=rsad(xhf)%%=rsad(bj)%/a/td td align=center width=96a href=?kind=bjamp。 /td /tr /table/td /tr /table /form /td /tr tr td 系 統(tǒng) 管理 員 ： /td /tr trtd colspan=9 畢業(yè)設(shè)計（論文） 21 table width=752 border=39。 DPath sqlad=select * from admin order by id sqlad,connad,1,2 do while not ( or ) i=i+1 % td align=center width=96%=rsad(username)%/td td align=center width=96a href=?kind=adminamp。 /td /tr /table/td /tr /table /form /td /tr %end if% /table ! include file=inc/ 畢業(yè)設(shè)計（論文） 25 批量添加成績（代碼）如圖 4 圖 4 %if session(password) then % ! include file=inc/ ! include file=inc/ % bj100=(bj100) bj101=left(bj100,3) for t=4 to len(bj100) if mid(bj100,t,1)=0 and mid(bj100,t,1)=9 then exit for bj101=bj101amp。 and xq=39。 sql,conn,1,1 if and then 請選擇當(dāng)前數(shù)據(jù)庫中課程的分類，即相對應(yīng)的 font color=red班級 /font跟 font color=red學(xué)期 /font~~~~~~~~~~ else do while not nn=nn+1 % 畢業(yè)設(shè)計（論文） 27 tr td width=100 select name=bj%=jamp。nn% 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 td width=100 select name=lx%=jamp。 /script end if mm=request(mm) mm1=request(mm1) 畢業(yè)設(shè)計（論文） 33 if session(password) then mm1=mm if mmmm1 then script language=JavaScript amp。amp。 amp。bjamp。mmamp。sexamp。ybamp。xhamp。xmamp。questionamp。addramp。 alert(39。amp。 /script end if username=request(username) if usernamesession(user) then script language=JavaScript amp。 () 。 amp。session(return)amp。 where id=+ IID sql,conn,1,1 session(pwd)=mm 畢業(yè)設(shè)計（論文） 34 script language=JavaScript amp。,addr=39。,question=39。,xm=39。,xh=39。,39。,39。,39。set rs=(update user(bj,xh,mm,xm,sex,addr,yb)values(39。你輸入的學(xué)號已經(jīng)存在！ ~39。 () amp。 amp。nn% type=text id=cj%=jamp。lx100amp。bj101amp。 sql=select * from bjb sql,conn,1,1 畢業(yè)設(shè)計（論文） 23 do while not % option%=rs(bj)%/option % loop set rs=nothing set conn=nothing %/select/td /tr tr td align=center [ span style=color: FF0000學(xué)號 /span ] /td tdinput name=xh type=text size=30/td /tr tr td align=center 姓名 /td tdinput name=user type=text size=30/td /tr tr td align=center密 碼 /td tdinput name=mm type=text size=30/td /tr tr td align=center 性 別 /td tdselect name=sex option男 /optionoption女 /option/select/td /tr tr td align=center 住址 /td tdinput name=addr type=text size=30/td /tr 畢業(yè)設(shè)計（論文） 24 tr td align=center 郵編 /td tdinput name=yb type=text size=30/td /tr tr align=center td colspan=2input type=hidden name=max value=1 input type=hidden name=kind value=1 input type=submit name=Submit value=提交 input type=reset name=Submit2 value=清 除 /td /tr tr td colspan=2table width=100% border=0 cellspacing=0 cellpadding=0 tr td width=13% align=center說 明 /td td width=87% 您輸 入的密 碼為 空，系 統(tǒng)將 自 動以 學(xué)號 作 為 密 碼 。 bordercolor=F0F0F0 tr % i=0 set connad=() set rsad=() DPath = () driver={Microsoft Access Driver (*.mdb)}。 /td /tr /table/td /tr /table /form /td /tr %end if% %if (kind)=admin then session(return)=?kind=admin% tr td align=center colspan=9 form name=form1 method=post action= br table width=50% border=1 cellspacing=0 cellpadding=0 bordercolor=eeeeee tr align=center td colspan=2 添加系 統(tǒng) 管理 員 /td /tr tr td width=27% align=center 用 戶 名 /td td width=73%input name=username type=text 畢業(yè)設(shè)計（論文） 20 size=30/td /tr tr td align=center 密 碼 /td tdinput name=password type=password size=30/td /tr tr align=center td colspan=2input type=hidden name=kind value=0 input type=submit name=Submit value=提交 input type=reset name=Submit2 value=清 除 /td /tr tr td colspan=2table width=100% border=0 cellspacing=0 cellpadding=0