【正文】 /p end if else % div align=centerfont color=0000FF點(diǎn)擊課程號(hào)可以直接選課/font /div table width=100% border=1 cellpadding=0 cellspacing=0 bordercolorlight=0000dd bordercolordark=FFFFFF bgcolor=F0F0F0 tr align=center bgcolor=99CCFF rowspan=2 td colspan=7 height=28排課系統(tǒng) /td /tr tr bgcolor=99CCFF align=center td rowspan=2 width=14% align=center課程號(hào) /td td width=15%課程名稱(chēng) /td td width=14%已選人數(shù) /td td width=14%教師編號(hào) /td td width=14%學(xué)分 /td td width=15%上課地點(diǎn) /td td width=14%課程性質(zhì) /td /tr tr bgcolor=99CCFF align=center td width=15%開(kāi)課分院 /td td width=14%最大人數(shù) /td td width=14%教師姓名 /td td width=14%面向?qū)I(yè) /td td width=15%上課時(shí)間 /td td width=14%考察方式 /td 南京人口管理干部學(xué)院 41 /tr % dim i i=1 while not if i mod 2=0 then Bgcolor=F0F0F0 else Bgcolor=FFFFFF end if % tr align=center td rowspan=2 width=14% align=center a href=?ARRANGE_ID=%=rs(ARRANGE_ID)% target=_parent %=rs(COURSE_ID)% /a /td td width=15%%=rs(COURSE_NAME)%/td td width=14% % set rs1=() sql=select count(STUDENT_ID) as SELECTED from CourseSelect where ARRANGE_ID=。COURSE_IDamp。red39。center39。沒(méi)有您可選的課程。你可選擇的課程 /p if or then if COURSE_ID= then p align=39。 end if call openDB() sql,conn,1,1 p align=39。TEACHER_IDamp。 end if if TEACHER_ID then sql=sql+ and TEACHER_ID=39。COURSE_IDamp。 if COURSE_ID then sql=sql+ and COURSE_ID=39。session(DEPT_ID)amp。 charset=gb2312 link href=../include/ rel=stylesheet type=text/css /head body bgcolor=F5F5F5 % 南京人口管理干部學(xué)院 39 call insureID() if Session(USER_TYPE)Student and Session(USER_TYPE)Admin then end if dim COURSE_ID dim TEACHER_ID COURSE_ID=request(COURSE_ID) TEACHER_ID=request(TEACHER_ID) COURSE_ID=Trim(request(COURSE_ID)) TEACHER_ID=Trim(request(TEACHER_ID)) sql=select * from VIEW_Arrange where ORIENT_DEPT_ID like 39。同時(shí)提供特定課程的查詢(xún)功能。你的選課表 /font/div/td /tr % dim i i=1 while not % tr td width=8%%=i%/td td width=14%%=rs(COURSE_ID)%/td td width=38%%=rs(COURSE_NAME)%/td td width=28%%=rs(TEACHER_NAME)%/td 南京人口管理干部學(xué)院 38 td width=12%a href=?ARRANGE_ID=%=rs(ARRANGE_ID)%退課 /a/td /tr % i=i+1 wend call closeDB() % /table /body /html 該頁(yè)面在實(shí)現(xiàn)退課功能的時(shí)候要調(diào)用頁(yè)面 ，但是為了完整性，這里先介紹 頁(yè)面 —— 它是選課系統(tǒng)的最主要組成部分之一。 face=39。call Debug(sql) call openDB() sql,conn,1,1 if and then brbrdiv align=center您暫時(shí)還沒(méi)有選課 /div end if % brbr table width=100% border=1 align=center cellpadding=0 cellspacing=0 bordercolorlight=0000dd bordercolordark=FFFFFF bgcolor=F0F0F0 tr bgcolor=99CCFF td colspan=5 height=28div align=centerfont size=39。39。amp。代碼如下： !include file=../include/ html head title%=WebName%/title meta equiv=ContentType content=text/html。（可以考試改造成使用 session 變量）同時(shí)注意鏈接的技術(shù)， target=” _parent” 指出鏈接到父對(duì)象。39。amp。 charset=gb2312 link href=../include/ rel=stylesheet type=text/css /head body bgcolor=F0F0F0 % call insureID() 南京人口管理干部學(xué)院 35 if Session(USER_TYPE)Student then 39。下面介紹它的 3 個(gè)內(nèi)嵌頁(yè)而 、 和。 /iframe /td /tr /table /div !include file=../include/ /bodytd valign=top width=500 南京人口管理干部學(xué)院 34 iframe name=I3 width=500 height=280 src= scrolling=auto frameborder=0 瀏覽器不支持嵌入式框架，或被配置為不顯示嵌入式框架。 /iframe/td /tr tr height=1 bgcolor=C0C0C0 td colspan=3 /td /tr tr height=280 td valign=top width=249 iframe name=I2 width=249 height=280 src= scrolling=auto frameborder=0 瀏覽器不支持嵌入式框架，或被配置為不顯示嵌入式框架。 圖 62 選課主頁(yè)面 南京人口管理干部學(xué)院 32 代碼如下 : !include file=../include/ html head meta equiv=ContentType content=text/html。它是一個(gè)嵌入框架集文件，將選課系統(tǒng)主頁(yè)面分成上、左、右 3個(gè)部分，分別由 SelectCourseTop． asp、 SelectCourseLeft． asp和 SelectCourseMain． asp 構(gòu)成。這本子系統(tǒng)中也使用了存儲(chǔ)過(guò)程，同樣地，在用到的時(shí)候會(huì)介紹這些存儲(chǔ)過(guò)程。選課主界面用 fram 框架實(shí)現(xiàn)。) %=rs(NOTICE_TITLE)%/a/td td width=142 height=25 bgcolor=F0F0F0 align=center%=rs(NOTICE_TIME)% /td /tr % i=i+1 wend call closeDB() end if % /table /center /td /tr /table 選課子系統(tǒng) SelectCourse 選課子系統(tǒng)是選排課系統(tǒng)的兩大主要系統(tǒng)之一，也是用戶(hù)使用最多的子系統(tǒng)。,39。,39。 order by NOTICE_ID desc Set rs1= () sql1,conn,1,1 % tr td width=100% bgcolor=F0F0F0 marquee scrollamount=1 scrolldelay=30 direction= up id=helpor_ width=570 height=89 onMouseOver=() onMouseOut=() % if then 暫時(shí)沒(méi)有重要選課通告！ else rs1(NOTICE_CONTENT) end if % /marquee /td 南京人口管理干部學(xué)院 29 /tr /table br table border=1 width=586 cellspacing=0 cellpadding=0 bordercolorlight=0000dd bordercolordark=FFFFFF tr td align=center bgcolor=99CCFF height=25 colspan=3 font color=000099b最新公告 /b/font/td /tr tr td width=51 align=center bgcolor=99CCFF height=25NO/td td width=385 align=center bgcolor=99CCFF height=25公告標(biāo)題 /td td width=142 align=center bgcolor=99CCFF height=25添加時(shí)間 /td /tr % sql,conn,1,1 if and then else dim i i=1 while not and i6 % tr td width=51 height=25 bgcolor=99CCFF align=center%=i%/td td width=385 height=25 bgcolor=F0F0F0 a href= 南京人口管理干部學(xué)院 30 onClick=(39。 } } /script !— 模塊 4通知欄 位置是 ” /ArrangeCourse/CourseSelectNotice/” “ /ArrangeCourse/CourseSelectNotice/” 包含所有關(guān)于選課通知的功能模塊 . ? !include file=../../include/ table border=1 width=587 bordercolorlight=0000dd bordercolordark=FFFFFF cellspacing=0 cellpadding=0 height=106 南京人口管理干部學(xué)院 28 tr td width=100% bgcolor=99CCFF height=20 align=center font color=000099b重要通知