基于ASP的遠(yuǎn)程教學(xué)選課、退課功能的設(shè)計(jì)與實(shí)現(xiàn)

基于ASP的遠(yuǎn)程教學(xué)選課、退課功能的設(shè)計(jì)與實(shí)現(xiàn)

摘要結(jié)合遠(yuǎn)程教學(xué)系統(tǒng)開發(fā)的經(jīng)歷，介紹了如何利用ASP技術(shù)實(shí)現(xiàn)網(wǎng)上選課、退課功能。關(guān)鍵詞ASP；遠(yuǎn)程教學(xué)；選課；退課；Oracle1引言ASP是“ActiveServerPages”的簡寫，即“動(dòng)態(tài)服務(wù)器網(wǎng)頁”,是一種被廣泛用于創(chuàng)建動(dòng)態(tài)網(wǎng)頁的功能強(qiáng)大的服務(wù)器端腳本語言。筆者參與的是郵政遠(yuǎn)程教學(xué)系統(tǒng)項(xiàng)目開發(fā)，本系統(tǒng)采用WindowsServer，WEB服務(wù)采用/，與后臺數(shù)據(jù)庫采用ODBC連接，使用ASP技術(shù)實(shí)現(xiàn)系統(tǒng)的動(dòng)態(tài)頁面效果。該系統(tǒng)主要針對郵政職工的在職遠(yuǎn)程學(xué)習(xí)、遠(yuǎn)程技術(shù)討論和交流，并為業(yè)務(wù)管理提供支撐服務(wù)。遠(yuǎn)程教學(xué)網(wǎng)站將開設(shè)許多業(yè)務(wù)課、技術(shù)課供學(xué)員學(xué)習(xí)，因此學(xué)員可以自由的選擇一些課程來學(xué)習(xí)。下面主要介紹本系統(tǒng)網(wǎng)上選課、退課的流程設(shè)計(jì)及如何利用ASP技術(shù)實(shí)現(xiàn)功能。2遠(yuǎn)程教學(xué)系統(tǒng)概述現(xiàn)代遠(yuǎn)程教育是隨著現(xiàn)代信息技術(shù)的發(fā)展而產(chǎn)生的一種新型教育方式，是構(gòu)筑知識經(jīng)濟(jì)時(shí)代人們終身學(xué)習(xí)體系的主要手段。遠(yuǎn)程教學(xué)是郵政繼續(xù)教育的一個(gè)有效途徑。郵政遠(yuǎn)程教學(xué)系統(tǒng)可以及時(shí)把郵政新技術(shù)、新業(yè)務(wù)放在網(wǎng)上交流探討，網(wǎng)上學(xué)員可以隨時(shí)隨地學(xué)習(xí)、提高，一定程度上可以減輕脫產(chǎn)短期培訓(xùn)給企業(yè)造成費(fèi)用支出的壓力。本系統(tǒng)總體上定位為“基于Web的開放式多媒體遠(yuǎn)程教學(xué)系統(tǒng)”。這一類遠(yuǎn)程教學(xué)系統(tǒng)主要為窄帶、非實(shí)時(shí)的應(yīng)用系統(tǒng)，它采用WEB服務(wù)器和數(shù)據(jù)庫服務(wù)器作為遠(yuǎn)程教育網(wǎng)的服務(wù)器，用戶在接入因特網(wǎng)的計(jì)算機(jī)上，通過瀏覽器連到教學(xué)系統(tǒng)的WEB服務(wù)器上，完成教學(xué)內(nèi)容的瀏覽、課件下載、實(shí)時(shí)答疑等各項(xiàng)學(xué)習(xí)活動(dòng)。同樣，教師也通過瀏覽器以教師身份登錄到WEB服務(wù)器上實(shí)施教學(xué)和答疑。系統(tǒng)采用目前流行的Web應(yīng)用的三層B/S瘦客戶體系結(jié)構(gòu)，即數(shù)據(jù)層、功能層、表示層。3學(xué)員學(xué)習(xí)流程首先學(xué)員通過網(wǎng)絡(luò)瀏覽遠(yuǎn)程教學(xué)網(wǎng)頁，根據(jù)自己的需要選擇不同的專業(yè)、課程，在學(xué)員將學(xué)習(xí)課程所需要的費(fèi)用交納后即可以通過該網(wǎng)站進(jìn)行學(xué)員注冊，學(xué)員輸入個(gè)人的相關(guān)信息并注冊成功后就成為了遠(yuǎn)程教育網(wǎng)的正式學(xué)員，從而可以將自己所選擇的課程課件下載學(xué)習(xí)。為了解決學(xué)員在學(xué)習(xí)過程中遇到的問題，教學(xué)網(wǎng)安排老師在網(wǎng)上進(jìn)行輔導(dǎo)，學(xué)員可以通過發(fā)E-mail詢問，也可以登錄教學(xué)網(wǎng)站的交流室與其他學(xué)生或輔導(dǎo)老師進(jìn)行討論，或訪問課程問題集錦，發(fā)表自己的問題、查看問題的答案。在學(xué)員學(xué)習(xí)完成后，如順利通過相應(yīng)考試即可結(jié)業(yè)，并且可以通過遠(yuǎn)程教育網(wǎng)查詢成績。3選課、退課功能概要設(shè)計(jì)目標(biāo)：為登錄遠(yuǎn)程教學(xué)系統(tǒng)的學(xué)員提供選擇學(xué)習(xí)課程的功能，要根據(jù)學(xué)員的交費(fèi)情況判斷課程是否可選。輸入：本人資金余額，可選課程清單。加工：⑴學(xué)員類型、權(quán)限，禁止非法客戶操作。⑵帳戶表中查出本人帳戶資金余額，若為零則禁止。⑶從學(xué)員選課表中，查出并顯示該學(xué)員已選課程。⑷列出目前網(wǎng)站可供該學(xué)員選擇的課程(該學(xué)員的已選課程出外)，以及每門課程的具體信息，包括課程開課時(shí)間、任課教師、學(xué)時(shí)、費(fèi)用及簡單的內(nèi)容介紹。⑸接收用戶選課、退課操作，如開課時(shí)間未到，學(xué)員可以把已選課程退掉，及退課。也可將新課程選中，即選課。根據(jù)員的操作，系統(tǒng)隨時(shí)計(jì)算、顯示該學(xué)員的資金余額，并隨時(shí)刷新該學(xué)員已選課程列表和可選課程列表。⑹選課操作過程中，計(jì)算學(xué)員‘資金余額-所選課程費(fèi)用’的值，該值小于零，則選擇無效、操作失??；若大于等于零，經(jīng)用戶確認(rèn)后保存，同時(shí)把該值記入賬戶信息表，形成新的資金余額；退課操作完成之前，計(jì)算學(xué)員‘資金余額+所退課程費(fèi)用’的值，并把該值記入賬戶信息表，形成新的資金余額。⑺在學(xué)員選課表中添加或注銷記錄，資金余額寫入帳戶信息表，資金增減明細(xì)寫入資金明細(xì)表。輸出：選課結(jié)果，費(fèi)用明細(xì)，資金余額的更新。4選課、退課功能程序?qū)崿F(xiàn)⑴選課、退課功能的實(shí)現(xiàn)主要采用了ORACLE數(shù)據(jù)庫訪問的ADO技術(shù)，ADO是ASP技術(shù)的核心之一，它集中體現(xiàn)了ASP技術(shù)豐富而靈活的數(shù)據(jù)庫訪問功能。⑵將學(xué)員已選課程列表顯示、可選課程列表顯示與選課操作的處理寫成了一個(gè)應(yīng)用程序，這樣通過多次調(diào)用應(yīng)用程序本身，可以隨時(shí)刷新這兩個(gè)課程列表及資金余額顯示。⑶將學(xué)員已選課程列表顯示、可選課程列表顯示與退課操作的處理寫成了一個(gè)應(yīng)用程序，這樣通過多次調(diào)用應(yīng)用程序本身，可以隨時(shí)刷新這兩個(gè)課程列表及資金余額顯示。下面以選課功能的源程序?yàn)槔哼x課功能部分源代碼：%id=cstr(session("id"))setcn=("")cnstr=application("oleconn")cnstrna=("username")sqls="selectsuplus,class_nofromaccountwhereaccount_no=‘"&session("id")&"‘"setrss=(sqls)‘取出用戶的余額su=cint(rss("suplus"))classno=trim(rss("class_no"))‘以下是用戶提交選課操作的處理ifrequest("ch")="yy"then‘先判斷用戶的資金剩余情況ifsucint(request("suplus"))then""endif‘再判斷用戶是否選過此課sql="selectcount(*)fromfstudent_lessonwhereaccount_no=‘"_&id&"‘a(chǎn)ndlesson_id=‘"&request("lessonid")&"‘"setrs=(sql)rnum=cint(rs(0))setrs=nothing‘如果用戶沒有選過此課，則可以選課ifrnum=0thenye=cint(request("suplus"))‘向選課表寫入一條記錄sql="insertintofstudent_lesson"_&"(account_no,lesson_id,completed,lesson_name,selected_time)values(‘"_&id&"‘,‘"&request("lessonid")&"‘,‘n‘,‘"&request("lessonname")&"‘,sysdate)"‘修改資金余額

sql1="updateaccountsetsuplus="&ye&"whereaccount_no=‘"&id&"‘"‘寫用戶的費(fèi)用明細(xì)流水sql2="insertintofee"_&"(account_no,money,opreate_time,suplus,remark)values(‘"_&id&"‘,"&request("lessonfee")&",sysdate,"&ye&",‘選課‘)"sql2sqlsql1endif‘顯示學(xué)員的新選課表及新的可選課程列表，即刷新頁面顯示""else‘如用戶未提交選課sqls="selectsuplusfromaccountwhereaccount_no=‘"&id&"‘"setrss=(sqls)su=cint(rss("suplus"))‘顯示用戶已選課程列表sql="select_time,b.*fromfstudent_lessona,lessonb"_&"where_id=_idand_no=‘"&session("id")&"‘"setrs=(sql)"h3fontcolor=#006699姓名："&na"       你的資金余額為："&su&"元!/font    fontcolor=#339933/h3/h3""pfontcolor=#009966已選的課程列表：/font""tablecellspacing=0cellPadding=0bordercolor=#009966border=1align=centerbordercolorlight=009966bordercolordark=#FFFFFF""tralign=centerbgcolor=#cccccctd課程編號/tdtd課程名/tdtd學(xué)時(shí)/tdtd學(xué)分/tdtd費(fèi)用/tdtd開課時(shí)間/tdtd結(jié)課時(shí)間/tdtd選課時(shí)間/td/tr"dowhilenot…loop"/table/p"endif"pfontcolor=#009966可選的課程列表：/font"http://判斷用戶是否選過課ifthensql2="select*fromlessona,teacher_lessonb"_&"where_id=_idand_no=‘"&classno&"‘"setrs2=(sql2)//判斷是否有允許選的課程ifthen"fontcolor=red無/fontbr"else"tablecellspacing=0cellPadding=0bordercolor=blueborder=1align=centerbordercolorlight=bluebordercolordark=#FFFFFF""tralign=centerbgcolor=#cccccc"_&"td課程編號/tdtd課程名/tdtd學(xué)時(shí)/tdtd學(xué)分/td"_&"td費(fèi)用/tdtd開課時(shí)間/tdtd截課時(shí)間/tdtd操作/td/tr"dowhilenot"tralign=centertd"_&rs2("lesson_id")&"/tdtd"_&rs2("lesson_name")&"/tdtd"_&rs2("period")&"/tdtd"_&rs2("credit")&"/tdtd"_&rs2("lesson_fee")&"/tdtd"_&rs2("start_time")&"/tdtd"_&rs2("end_time")&"/td"fy=cint(rs2("lesson_fee"))fy1=su-cint(rs2("lesson_fee"))iffy10then"tdalign=centerimgsrc=images“title=‘資金不足，你無法選擇此課程！‘a(chǎn)lign=absmiddleheight=25/td/tr"else//資金足可以選此課，帶著數(shù)據(jù)鏈接到本程序文件，即回到前面用戶提交選課操作的處理"tdahref=?ch=yy&suplus="_&fy1&"&lessonfee="&trim(rs2("lesson_fee"))&"&lessonid="_&rs2("lesson_id")&"imgsrc=images“"_&"title=‘你可以選擇此課程！‘a(chǎn)lign=absmiddleheight=25/td/tr"endifloop"/table/p"endif//用戶已經(jīng)選過課elsesql1="selectb.*fromteacher_lessona,lessonbwhere_no=‘"_&classno&"‘a(chǎn)nd_id=_idand_idnotin"_&"(selectlesson_idfromfstudent_lessonwhereaccoun