【正文】 ,conn,1,1if and thenelse 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=F0F0F0amp。nbsp。a href= onClick=(39。ArrangeCourse/CourseSelectNotice/?NOTICE_ID=%=rs(NOTICE_ID)%39。,39。139。,39。scrollbars=yes,resizable=no,width=420,height=35039。) %=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)之一，也是用戶使用最多的子系統(tǒng)。但是在結(jié)構(gòu)和實現(xiàn)上都比排課子系統(tǒng)簡單些。選課主界面用fram框架米實現(xiàn)。下面羅列出該子系統(tǒng)的全部組成頁面： (1) (2) (3) (4) (5) (6) (7) (8) (9) 下面來逐一地介紹這些頁面的代碼。這本子系統(tǒng)中也使用了存儲過程，同樣地，在用到的時候會介紹這些存儲過程。1． SelectCourse．a(chǎn)sp。它是一個嵌入框架集文件，將選課系統(tǒng)主頁面分成上、左、右3個部分，分別由SelectCourseTop．a(chǎn)sp、SelectCourseLeft．a(chǎn)sp和SelectCourseMain．a(chǎn)sp構(gòu)成。界面如圖62所示。圖62 選課主頁面代碼如下: !include file=../include/htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312link href=../include/ rel=stylesheet type=text/csstitle/title/headbodydiv align=center!include file=../include/%call insureID()if Session(USER_TYPE)Student then 你不是學(xué)生，無權(quán)選課! end if%table border=0 cellpadding=0 cellspacing=0 width=750 height=351tr height=80td valign=top colspan=3iframe name=I1 width=750 height=80 src= scrolling=auto frameborder=0瀏覽器不支持嵌入式框架，或被配置為不顯示嵌入式框架。/iframe/td/trtr height=1 bgcolor=C0C0C0td colspan=3/td/trtr height=280td valign=top width=249 iframe name=I2 width=249 height=280 src= scrolling=auto frameborder=0瀏覽器不支持嵌入式框架，或被配置為不顯示嵌入式框架。/iframe/tdtd width=1 bgcolor=c0c0c0/tdtd valign=top width=500iframe name=I3 width=500 height=280 src= scrolling=auto frameborder=0 瀏覽器不支持嵌入式框架，或被配置為不顯示嵌入式框架。/iframe/td/tr/table/div!include file=../include//bodytd valign=top width=500iframe name=I3 width=500 height=280 src= scrolling=auto frameborder=0 瀏覽器不支持嵌入式框架，或被配置為不顯示嵌入式框架。/iframe/td/tr/table/div!include file=../include//body/html這個頁面應(yīng)注意如何保持各個對象的位置和大小協(xié)調(diào)，使之成為一個整體。、。2． ：給出學(xué)生的基本信息,同時提相關(guān)的鏈接,:!include file=../include/htmlheadtitle%=WebName%/titlemeta equiv=ContentType content=text/html。 charset=gb2312link href=../include/ rel=stylesheet type=text/css/headbody bgcolor=F0F0F0%call insureID()if Session(USER_TYPE)Student then 39。and Session(USER_TYPE)Admin end ifsql=select STUDENT_NAME from StudentInfo where STUDENT_ID=39。amp。Session(USER_NAME)amp。39。call openDB() sql,conn,1,1if then call trigErr()end if%table width=100% border=0 cellspacing=0 cellpadding=0 height=50tr td width=40% align=centerstrongfont color=0000FF%=rs(STUDENT_NAME)%同學(xué)你好，歡迎你進入選課系統(tǒng)！/font/strong/td%call closeDB()%td width=15% align=centerstronga href= target=_top【刷新顯示】/a/strong/tdtd width=15% align=centerstronga href=../?Act=changePsw target=_parent【修改密碼】/a/strong/tdtd width=15% align=centerstronga href=../LogIn/?Act=logout target=_parent【退出系統(tǒng)】/a/strong/tdtd width=15% align=centerstronga href=../ target=_parent【返回首頁】/a/strong/td/tr/table/body/html可以看到,在這個小小的嵌入頁面當(dāng)中也需要查詢——查詢學(xué)生的姓名。（可以考試改造成使用session變量）同時注意鏈接的技術(shù)，target=”_parent”指出鏈接到父對象。 ，同時提供“退課”操作。代碼如下：!include file=../include/htmlheadtitle%=WebName%/titlemeta equiv=ContentType content=text/html。 charset=gb2312link href=../include/ rel=stylesheet type=text/css/headbody leftmargin=0 topmargin=0 bgcolor=F5F5F5%call insureID()if Session(USER_TYPE)Student and Session(USER_TYPE)Admin then end ifsql=select ARRANGE_ID,COURSE_ID,COURSE_NAME,TEACHER_NAME from VIEW_Select where STUDENT_ID=39。amp。Session(USER_NAME)amp。39。39。call Debug(sql)call openDB() sql,conn,1,1if and then brbrdiv align=center您暫時還沒有選課/div end if%brbrtable 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。+139。 face=39。黑體39。你的選課表/font/div/td /tr%dim ii=1while 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 td width=12%a href=?ARRANGE_ID=%=rs(ARRANGE_ID)%退課/a/td /tr % i=i+1 wendcall closeDB()%/table/body/html，但是為了完整性，——它是選課系統(tǒng)的最主要組成部分之一。該頁面首先根據(jù)核對學(xué)生所在院系和開設(shè)的課程中面向的院系羅列學(xué)生可選的課程信息，然后提供選課鏈接，提交到detectSelectColision模塊進行進一步的操作。同時提供特定課程的查詢功能。代碼如下： !include file=../include/htmlheadtitle%=WebName%選課系統(tǒng)/titlemeta equiv=ContentType content=text/html。 charset=gb2312link href=../include/ rel=stylesheet type=text/css/headbody bgcolor=F5F5F5%call insureID()if Session(USER_TYPE)Student and Session(USER_TYPE)Admin then end ifdim COURSE_IDdim TEACHER_IDCOURSE_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。%amp。session(DEPT_ID)amp。%39。if COURSE_ID then sql=sql+ and COURSE_ID=39。amp。COURSE_IDamp。39。end ifif TEACHER_ID then sql=sql+ and TEACHER_ID=39。amp。TEACHER_IDamp。39。end ifcall openDB() sql,conn,1,1 p align=39。center39。你可選擇的課程/pif or then if COURSE_ID= then p align=39。center39。沒有您可選的課程。/p else p align=39。center39。編號為font color=39。red39。_ amp。COURSE_IDamp。/font的課程不存在或您不能選擇該課程。/p end ifelse % div align=centerfont color=0000FF點擊課程號可以直接選課/font /div table width=100% border=1 cellpadding=0 cellspacing=0 bordercolorlight=0000dd bordercolordark=FFFFFF bgcolor=F0F0F0 tr align=cent