【正文】 iv align=centera href=?id=% =RS(id) % class=style2修改/a/div/td tddiv align=centera href=?id=% =RS(id) % class=style2刪除/a/div/td /tr % wend %/table%Set rs=NothingSet conn=Nothing% 列出所有課程(部分代碼) 修改所選課程(代碼略) 保存(代碼略) 成績的錄入與查詢 錄入學(xué)生成績(代碼略) 錄入學(xué)生成績保存(代碼略) 按學(xué)生學(xué)號(hào)查詢各科成績(部分代碼)%DIM ID : ID=Request(stu_xh)IF ID= THEN(../include/)END IFDIM RSSET RS=()SQL=SELECT * FROM achievement where stu_xh= amp。 ID amp。 order by id desc SQL,CONN,1,1IF THEN(暫時(shí)沒數(shù)據(jù))ELSEwhile not DIM STU_XH : STU_XH=RS(stu_xh)…..% ….//在成績表中查詢是否存在請(qǐng)求的”stu_xh”，并找出其所選課程的編號(hào) % SET RS1=() SQL=SELECT * FROM student where stu_xh= amp。 STU_XH SQL,CONN,1,1 DIM STU_NAME : STU_NAME=RS1(stu_name) SET RS1=Nothing% ….//在學(xué)生表中查詢學(xué)號(hào)為stu_xh的學(xué)生的姓名% SET RS1=() SQL=SELECT * FROM courses where cou_id= amp。 COU_ID SQL,CONN,1,1 DIM COU_ID_ : COU_ID_=RS1(cou_id) DIM COU_NAME : COU_NAME=RS1(cou_name) DIM COU_TERM : COU_TERM=RS1(cou_term) DIM COU_TEACHER : COU_TEACHER=RS1(cou_teacher) SET RS1=Nothing% ….//在課程表中查詢?cè)撋x課程ID的課程名 按學(xué)生學(xué)號(hào)查詢各科成績(代碼略) 　 學(xué)生成績修改保存(代碼略) 本專業(yè)所有學(xué)生各科成績表(代碼略) 管理員模塊的實(shí)現(xiàn)本系統(tǒng)的管理模塊分為超級(jí)管理和班主任管理，班主任管理由學(xué)生學(xué)籍管理、學(xué)生成績管理組成，在本文上一節(jié)已對(duì)它們作了較為詳盡的說明，本節(jié)主要介紹超級(jí)管理員板塊 ，該板塊分為專業(yè)管理和新聞留言管理。：判斷asp班主任否超級(jí)管理員是學(xué)籍管理成績管理專業(yè)管理新聞、留言管理超級(jí)管理員管理增、刪、改、查等操作專業(yè)管理的部分代碼在上一節(jié)已有介紹，在這里就不再累述。下面就本系統(tǒng)的管理模塊的代碼作詳細(xì)介紹。 管理登陸文件(代碼略) 管理員密碼驗(yàn)證文件(部分代碼)%DIM ADMIN_NAME : ADMIN_NAME=REQUEST(admin_name)DIM ADMIN_PW : ADMIN_PW=REQUEST(admin_pw)DIM ADMIN_CHECK : ADMIN_CHECK=REQUEST(check)% //定義變量% IF ADMIN_CHECK=NO THEN //檢查用戶是否是超級(jí)管理員 DIM RS SET RS=() SQL=SELECT * FROM speciality WHERE spe_teacher=39。 amp。 ADMIN_NAME amp。 39。 AND teacher_pw=39。 amp。 ADMIN_PW amp。 39。 SQL,CONN,1,3 IF THEN (您不是合法用戶) ELSE SESSION(PASS)=PASSED SESSION(ADMIN_NAME)=RS(spe_teacher) SESSION(SPE_NAME)=RS(spe_name) SESSION(SPE_ID)=RS(id) (../admin/) END IF SET RS=NOTHING % //不是超級(jí)用戶% ELSE SET RS=() SQL=SELECT * FROM admin WHERE admin_name=39。 amp。 ADMIN_NAME amp。 39。 AND admin_pw=39。 amp。 ADMIN_PW amp。 39。 SQL,CONN,1,3 IF THEN (您不是合法用戶) ELSE SESSION(PASS)=PASSED (../admin/) END IF SET RS=NOTHING % //超級(jí)用戶% END IF % 左側(cè)管理導(dǎo)航(代碼略)add 添加班主任、列出所有班主任名單(代碼略) 添加班主任保存(代碼略) 刪除所選班主任(代碼略)：　　　　　　　 公告管理的實(shí)現(xiàn)本系統(tǒng)新聞模塊解決了學(xué)?；虬嗤ㄖ荒芗皶r(shí)的傳達(dá)給學(xué)生的問題，對(duì)于本模塊的增刪改查等操作就不再累述。本節(jié)重點(diǎn)介紹本模塊的重點(diǎn)，也是本系統(tǒng)的重點(diǎn)所在，分頁顯示問題。代碼如下： 新聞分頁顯示頁(部分代碼)%MYPAGE=10 …//定義每頁顯示的記錄數(shù)DIM RSSET RS=()SQL=SELECT * FROM news order by id desc SQL,CONN,1,1DIM NEWS_TITLE=INT(MYPAGE)DIM PAGE : PAGE=cint(REQUEST(page))IF PAGE= OR PAGE1 THEN PAGE=1IF PAGECINT() THEN PAGE==pagetotle=pagesize%table width=397 height=20 border=0 cellpadding=0 cellspacing=0 % IF THEN (暫時(shí)沒有記錄) ELSE % % for ipage=1 to NEWS_TITLE=RS(news_title) if len(NEWS_TITLE)50 then NEWS_TITLE=left(NEWS_TITLE,50)amp。... end if % //如果新聞標(biāo)題超過50字節(jié)，則只顯示前50字節(jié)…………. table width=397 height=25 border=0 cellpadding=0 cellspacing=0 tr class=a2 td width=204 valign=bottom div align=center共%=%條記錄　共%= %頁，當(dāng)前第%= page % 頁/div/td td width=193 valign=bottomdiv align=rightspan class=a1 % if page1 then %a href=?page=1第一頁/a　a href=?page=%=page1%上一頁/a % end if % % if page then % a href=?page=%=page+1%下一頁/a　a href=?page=%=%最后一頁/a % end if % /span/div/td /tr/table //分頁顯示% END IF SET RS=Nothing SET CONN=Nothing% 新聞顯示頁面(代碼略) 新聞添加頁面(代碼略) 新聞保存頁面(代碼略) 新聞列表頁面(代碼略)：總　　結(jié)本論文主要對(duì)WEB技術(shù)、ASP語言，數(shù)據(jù)庫技術(shù)進(jìn)行了較深入的學(xué)習(xí)和應(yīng)用，完成了對(duì)我校成教管理系統(tǒng)的設(shè)計(jì)與制作。實(shí)現(xiàn)了成教學(xué)生的注冊(cè)、管理，成績查新，發(fā)布信息等一系列功能，由于本人水平有限，因此在開發(fā)過程中遇到了許多問題和難點(diǎn)。系統(tǒng)的許多細(xì)節(jié)問題都是靠自己看書、實(shí)踐摸索出來的，并沒有完完全全體現(xiàn)出ASP的強(qiáng)大功能，而且還存在著許多不足之處，如：1) 報(bào)表打印功能未能實(shí)現(xiàn)，不能實(shí)現(xiàn)動(dòng)態(tài)報(bào)表；2) 由于時(shí)間關(guān)系，系統(tǒng)功能實(shí)現(xiàn)可能還不夠完善，使用不是很方便，比如，沒有實(shí)現(xiàn)多條記錄的刪除和添加。 參 考 文 獻(xiàn)[1]. 瑞禹等。基于ASP技術(shù)的Web應(yīng)用。電腦與信息技術(shù)。 [2]. 夏驕雄 陸菊康 施振夏。Intranet與管理信息系統(tǒng)。計(jì)算機(jī)工程與應(yīng)用，；第36卷。[3]. 袁鵬飛。SQL Server 數(shù)據(jù)庫應(yīng)用設(shè)計(jì)。人民郵件出版社。1998。[4]. 曹勇 吳功宜。開放安全的Internet/Intranet管理信息系統(tǒng)體系結(jié)構(gòu)的研究與實(shí)現(xiàn)。計(jì)算機(jī)工程與應(yīng)用，；第36卷。[5]. 王紅霞。Windows NT環(huán)境下Web數(shù)據(jù)庫應(yīng)用系統(tǒng)安全問題。微型機(jī)與應(yīng)用。特別鳴謝以下單位提供資料整理修正：在線代理||