【正文】 h=750 cellspacing=0 cellpadding=0 height=270trtd width=160 valign=top height=289!—模塊2：登錄輸入窗口。table border=1 bordercolorlight=0000dd bordercolordark=FFFFFF width=155 cellspacing=0 cellpadding=0 height=50trtd width=151 height=20 bgcolor=99CCFF valign=middleamp。鏈接/td/trtr td width=151 height=74 bgcolor=F0F0F0 valign=top align=centera href=hhtp:// target=_blankimg src=images/ width=114 height=51 border=0/aa href= target=_blankimg src=images/ width=114 height=51 border=0/a/td/tr/table/tdtd width=590 valign=top height=289!—模塊4：通知欄。當(dāng)然，也可以使用”!include224?，F(xiàn)在來看看模塊2登錄輸入窗口和模塊4通知欄的代碼。如果用戶已經(jīng)登錄,則顯示用戶基本信息.=../include/table border=1 bordercolorlight=0000dd width=156 cellspacing=0 cellpadding=0 height=100%‘如果沒有用戶登錄,則Session(“USER_NAME”)是空的,此時(shí)需要提供登錄功能:if Session(USER_NAME)= then % tr td width=152 height=20 bgcolor=99CCFFamp。登錄/td /tr form name=FormLogin method=post action=LogIn/ onSubmit=javaScript: return validate()。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。nbsp。USER_TYPEamp。USER_NAME bramp。歡迎你使用本選課系統(tǒng) elseif request(Act)=changePsw then % form name=FormChangePwd method=post action= LogIn/ onSubmit=javaScript: return ChkChangePwd()。nbsp。nbsp。nbsp。nbsp。 var PASSWORD = 。 var FIRST_TIME = 。 return false。 return false。 return false。 var CheckPwd=。 return false。 return false。 return false。!include file=../../include/table border=1 width=587 bordercolorlight=0000dd bordercolordark=FFFFFF cellspacing=0 cellpadding=0 height=106trtd width=100% bgcolor=99CCFF height=20 align=centerfont color=000099b重要通知/b/font/td/tr%sql=select * from CourseSelectNotice order by NOTICE_ID desccall openDB()sql1=select top 1 * from CourseSelectNotice WHERE NOTICE_HOT=39。 order by NOTICE_ID descSet rs1= () sql1,conn,1,1%trtd width=100% bgcolor=F0F0F0marquee scrollamount=1 scrolldelay=30 direction= up id=helpor_netwidth=570 height=89 onMouseOver=() onMouseOut=()amp。amp。amp。amp。 %if then 暫時(shí)沒有重要選課通告！ else rs1(NOTICE_CONTENT) end if%/marquee/td/tr/tablebrtable border=1 width=586 cellspacing=0 cellpadding=0 bordercolorlight=0000dd bordercolordark=FFFFFFtr td align=center bgcolor=99CCFF height=25 colspan=3font color=000099b最新公告/b/font/td/trtr td width=51 align=center bgcolor=99CCFF height=25NO/tdtd width=385 align=center bgcolor=99CCFF height=25公告標(biāo)題/tdtd width=142 align=center bgcolor=99CCFF height=25添加時(shí)間/td/tr% sql,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。a href= onClick=(39。,39。,39。) %=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)。選課主界面用fram框架米實(shí)現(xiàn)。這本子系統(tǒng)中也使用了存儲(chǔ)過程，同樣地，在用到的時(shí)候會(huì)介紹這些存儲(chǔ)過程。它是一個(gè)嵌入框架集文件，將選課系統(tǒng)主頁面分成上、左、右3個(gè)部分，分別由SelectCourseTop．a(chǎn)sp、SelectCourseLeft．a(chǎn)sp和SelectCourseMain．a(chǎn)sp構(gòu)成。圖62 選課主頁面代碼如下: !include file=../include/htmlheadmeta equiv=ContentType content=text/html。/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/td/tr/table/div!include file=../include//bodytd valign=top width=500iframe name=I3 width=500 height=280 src= scrolling=auto frameborder=0 瀏覽器不支持嵌入式框架，或被配置為不顯示嵌入式框架。、。 charset=gb2312link href=../include/ rel=stylesheet type=text/css/headbody bgcolor=F0F0F0%call insureID()if Session(USER_TYPE)Student then 39。amp。39。（可以考試改造成使用session變量）同時(shí)注意鏈接的技術(shù)，target=”_parent”指出鏈接到父對(duì)象。代碼如下：!include file=../include/htmlheadtitle%=WebName%/titlemeta equiv=ContentType content=text/html。amp。39。call Debug(sql)call openDB() sql,conn,1,1if and then brbrdiv align=center您暫時(shí)還沒有選課/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。 face=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)的最主要組成部分之一。同時(shí)提供特定課程的查詢功能。 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。session(DEPT_ID)amp。if COURSE_ID then sql=sql+ and COURSE_ID=39。COURSE_IDamp。end ifif TEACHER_ID then sql=sql+ and TEACHER_ID=39。TEACHER_IDamp。end ifcall openDB() sql,conn,1,1 p align=39。你可選擇的課程/pif or then if COURSE_ID= then p align=39。沒有您可選的課程。center39。red39。COURSE_IDamp。/p end ifelse % 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=ce