【文章內容簡介】 align=center width=50%brform name=form1 method=post action= table width=50% border=1 cellspacing=0 cellpadding=0 bordercolor=CCCCCC tr align=center td height=32 colspan=2添加班 級 及其 學號對應 代 碼 /td /tr tr td width=26% align=center班 級 /td td width=74%input type=text name=bj size=30/td /tr tr td align=center學號 代 碼 /td tdinput name=xhf type=text size=30/td /tr tr align=center 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 注意： 填寫 完后 請 自行確 認 /td /tr /table/form /td /tr tr td height=25 align=center班 級 及其 學號啟 始代 碼瀏覽 及修改/td 畢業(yè)設計（論文） 16 /tr tr td table width=752 border=39。139。 align=center cellpadding=39。039。 cellspacing=39。039。 bordercolor=F0F0F0 tr % dim i i=0 set connad=() set rsad=() DPath = () driver={Microsoft Access Driver (*.mdb)}。dbq= amp。 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。id=%=rsad(id)% title=%=rsad(xhf)%修改 /a a href=?type=useramp。id=%=rsad(id)%amp。kind=bjb刪 除 /a /td % if i mod 4=0 then (/trtr) loop if i5 then for j=i+1 to 4 畢業(yè)設計（論文） 17 % td align=center width=96/td td align=center width=96/td % next else set rsad=nothing set connad=nothing end if % /tr /table /td /tr tr %end if% %if (kind)=kc then% td align=center width=60%brform name=form1 method=post action=table width=60% border=1 cellspacing=0 cellpadding=0 bordercolor=CCCCCC tr align=center td height=32 colspan=2添加 與 班 級 相 對應 的 課 程及 類 型 /td /tr tr td width=26% align=center班 級 /td td width=74%select name=bj id=xh ! include file=inc/ /td /tr tr td align=center課 程 /td tdinput name=kc type=text size=30/td /tr 畢業(yè)設計（論文） 18 tr td align=center學 期 /td tdselect name=xq option第一 學 期 /option option第二 學 期 /option option第三 學 期 /option option第四 學 期 /option option第五 學 期 /option option第六 學 期 /option option第七 學 期 /option option第八 學 期 /option /select/td /tr tr td align=center類 型 /td tdselect name=lx option必修 課 /option option選 修 課 /option option限修 課 /option /select/td /tr tr align=center td colspan=2 input name=kind type=hidden value=3 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=14% align=center說 明 /td td width=86% 入相 對應 的 份數 ，系 統(tǒng) 自 動 生成 為您 方畢業(yè)設計（論文） 19 便添加 課 程。 /td /tr tr td /td td 課 程只需 選擇對應 的年 級 就行了，不必理 會 各 個班。 /td /tr tr td /td td 注意信息的完整性，提交后 請 自行到 課 程列表 進 行核對 。 /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è)設計（論文） 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 tr td width=13% align=center說 明 /td td width=87% 您輸 入的密 碼為 空，系 統(tǒng)將 自 動以用 戶 名作 為 密 碼 。 /td /tr tr td /td td 畢 之后， 請 自行確 認您 所 輸 入的信息。 /td /tr /table/td /tr /table /form /td /tr tr td 系 統(tǒng) 管理 員 ： /td /tr trtd colspan=9 畢業(yè)設計（論文） 21 table width=752 border=39。139。 align=center cellpadding=39。039。 cellspacing=39。039。 bordercolor=F0F0F0 tr % i=0 set connad=() set rsad=() DPath = () driver={Microsoft Access Driver (*.mdb)}。dbq= amp。 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。id=%=rsad(id)%修改 /a % if rsad(username)session(username) then%a href=?id=%=rsad(id)%amp。kind=adminamp。type=user 刪 除/a%else%刪 除 %end if% /td % if i mod 4=0 then (/trtr) loop if i5 then for j=i+1 to 4