【正文】 繁重 本系統(tǒng)主要應(yīng)用 DREAMWEAVER MX 開(kāi)發(fā)完成。在此表示感謝！ 主要參考文獻(xiàn)： 吉根林 崔海源主編 《 Web程序設(shè)計(jì)》 電子工業(yè)出版社 2020年 8月 武曉軍 陳海濱 《 JavaScript / VBScript 網(wǎng)頁(yè)編程實(shí)例解析 》 清華大學(xué)出版社 2020年 4月 宣小平 但正剛 《 ASP 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 》 人民郵電出版社 2020 年 10 月 龍馬工作室編 《 Dreamweaver MX ASP網(wǎng)頁(yè)編程入門(mén)與范例制作 》， 機(jī)械工業(yè)出版社 2020年 1月 Jonathan Goodyear 《 Debugging 》 New Riders May, 2020 6 、 asp 程 序 錯(cuò) 誤 詳 細(xì) 說(shuō) 明 表 7 、 ASP 語(yǔ) 法 速 查 表 基于 ASP 作業(yè)提交與批改系統(tǒng) 摘要： 近些年來(lái)互聯(lián)網(wǎng)迅速發(fā)展，它使的不同地點(diǎn)的人們?cè)谌魏螘r(shí)間都可以獲得自己需要的信息。 由于種種原因系統(tǒng)還有些缺陷，功能從某中程度上來(lái)說(shuō)還略顯單一。面對(duì)這樣的困難，我積極請(qǐng)教指導(dǎo)老師，查閱一些相關(guān)的資料，并再網(wǎng)絡(luò)上找到了錯(cuò)誤代碼所代表的意思，運(yùn)用一些調(diào)試程序的方法，最終將錯(cuò)誤一一消除。由于 ASP 的調(diào)試對(duì)環(huán)境有一定的要求。現(xiàn)總結(jié)如下： 首先遇到的問(wèn)題就是系統(tǒng)的功能定位的問(wèn)題。/td/tr: iNum=iNum+1 Next trtd colspan=2b文件數(shù)： /bamp。/tdtd align=rightamp。 sTemp amp。 cellspacing=39。 (amp。 sDir amp。FONTSIZE: 35px39。 cellspacing=39。 width=39。fontsize:14px} td{fontfamily:宋體 ,arial。 charset=gb231239。次成功提交作業(yè)。39。39。39。39。39。 ＜ font color=red＜ b成功提交作業(yè)。amp。amp。amp。amp。 xuehao amp。 。 b點(diǎn)評(píng) /b： amp。_ sReadFromDB amp。BACKGROUNDCOLOR: ffffff。1439。_ trtd colspan=4amp。/font/tdamp。 sHao amp。939。 defen amp。amp。 style=39。 rows=39。 /td/tramp。_ tdb 提交 作業(yè)時(shí)間 /b ： font color=blueamp。/font/tdamp。 loop trtd colspan=4amp。 left(xuehao,5) amp。 sHao amp。_ brb題目 /b： /td/tramp。 sHao amp。amp。_ trtdfont style=39。center39。039。 set rs = (sql) if then 39。.mdb) sql = select * from 作業(yè)題目 where 學(xué)號(hào) =39。dbq= amp。 讀文本文件 do sLine = if mid(sLine, 2, 2) = sHao then timu = : tishu = 1: rRiqi = mid(sLine, 5) elseif left(sLine, 5) = end then tishu = 0: exit do elseif left(sLine,1) = and tishu = 1 then exit do else if tishu = 1 then timu = timu amp。fontsize:14px} /style /head body %39。*39。 sTemp amp。amp。 width=176。 sTemp amp。FILE339。FILE39。 sDir amp。multipart/formdata39。 三個(gè)文件 b上傳 /b/td/tramp。 和 Workamp。95%39。 si amp。 sDir amp。 left(sTemp, 1) amp。_ trtd width=70b作業(yè)查詢(xún) /b|/tdtd align=left if tishu 1 then for i = 1 to tishu 1 39。39。tihao39。amp。 value=39。_ input type=39。amp。hidden39。 xingming amp。 name=39。39。xuehao39。amp。 name=39。_ sReadFromDB amp。BACKGROUNDCOLOR: FAFCEE。1439。/fontamp。 xingming amp。_ hr width=100% align=left/td/tramp。 20 時(shí) )brb題目 /b：/td/tramp。 stemp amp。amp。 action=39。95%39。 color=redb網(wǎng)絡(luò)提交作業(yè) /b/font/td/tr/tableamp。139。90%39。 charset=gb2312 style type=text/css body,td,th{fontfamily:宋體 。 amp。 ( sDiramp。 Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} 39。 sLine amp。ml=ls xuehao = (zyxt_user_nstu) xingming = (zyxt_user_xmin) sHW = (work) sDir= (ml) iphao = (REMOTE_ADDR) sFile = (sDiramp。amp。 charset=gb2312 title學(xué)號(hào)定目錄頁(yè)面 /title /head body % sXuehao=(zyxt_user_nstu)39。bschitchat39。39。39。dbq=amp。39。39。39。39。 set rs=(strsql) if not then’判斷是否有重名 (該用戶(hù)已經(jīng)存在，請(qǐng)重新輸入 ) else sql = insert into 登陸 (學(xué)號(hào) ,密碼 ,xhNum,xMing) sql = sql amp。 ( ) dim strsql,rs strsql=select * from 登陸 where 學(xué)號(hào) = 39。 charset=gb2312 title寫(xiě)入注冊(cè)信息 /title /head body % xuehao = trim(lcase(Request(xuehao))): mima =trim(lcase(Request(mima))) xhNum=trim(lcase(request(xhNum))):xMing=trim(request(xMing)) Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} 39。 pb密碼 /b input type=passwordname=mimasize=15value=39。 hours=18) {timeValue += (下午 )} if(hours18 amp。 p script language=JavaScript’用 JavaScript 編寫(xiě)的在主頁(yè)面上顯示時(shí)間的程序 ! var timerID = null var timerRunning = false function stopclock(){ if(timerRunning) clearTimeout(timerID) timerRunning = false } function startclock(){ F F T T stopclock() showtime() } function showtime(){ var now = new Date() var hours = () var minutes = () var seconds = () var timeValue = + ((hours 12) ? hours 12 : hours) timeValue += ((minutes 10) ? :0 : :) + minutes timeValue += ((seconds 10) ? :0 : :) + seconds if (hours=6 amp。新布置的作業(yè)可對(duì) 文件進(jìn)行修改，再單擊 [瀏覽 ]選取文件名填再輸入框中，上傳存儲(chǔ)到服務(wù)器上。 提交的作業(yè)轉(zhuǎn)至作業(yè)入庫(kù)頁(yè)面（ ）。 學(xué)生學(xué)號(hào)、姓名、 IP 號(hào)等數(shù)據(jù)自動(dòng)形式。其中為老師分配的學(xué)號(hào)最后兩位為 99 代表最高權(quán)限，學(xué)號(hào)前幾位為所教班級(jí)的學(xué)號(hào)。填寫(xiě)完畢點(diǎn)擊確定，調(diào)用 將用戶(hù)信息存入登陸表。 數(shù)據(jù)庫(kù)中有兩張表，一張“作業(yè)題目”表，用于記錄與作業(yè)有關(guān)的信息；一張登陸表，用于記錄與學(xué)生老師登陸信息。 3 .數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)置采用 Access 管理作業(yè)數(shù)據(jù)庫(kù)。所以推薦使用window2020+IIS5 這對(duì)組合，因?yàn)?window2020 是相對(duì)比較穩(wěn)定的系統(tǒng)，對(duì)于服務(wù)器網(wǎng)絡(luò)方面微軟投入得較多，比較適合做為服務(wù)使用。Microsoft Personal Web Server on Windows 95/98 也就是說(shuō)我們經(jīng)常所使用的 window95/98/2020/XP 都可以運(yùn)行 asp，只作 業(yè) 布置作業(yè) 老 師 需要將其設(shè)置為單機(jī)服務(wù)器就行了。我們單機(jī)并不需要設(shè)置成為局域網(wǎng)，只需要設(shè)置成為單機(jī)服務(wù)器就可以。 ④ 老師作業(yè)查詢(xún)和下載功能：老師可統(tǒng)計(jì)已交作業(yè)學(xué)生的人數(shù)，并可將已完成作業(yè)下載批改。 （ 1） 系統(tǒng)性能要求 ① 界面力求清潔大方 ② 進(jìn)入系統(tǒng)需要口令驗(yàn)證，區(qū)分老師與同學(xué)的用戶(hù)名，使不同的口令對(duì)應(yīng)不同的功 能，提高系統(tǒng)的安全性。 2 .數(shù)據(jù)流圖 用簡(jiǎn)單的分層數(shù)據(jù) 流圖表示不同級(jí)別上的功能模型。教學(xué)中難免要布置作業(yè)來(lái)檢測(cè)學(xué)生的掌握情況，但收作業(yè)和批改作業(yè)常常成了頭疼的事。 Abstract ： Recently with the development of INTERNET, people in different place are able to obtain the information which they need at any time. Simultaneously the appearance of INTERNET pushes the development of education forward greatly. Especially the rapidly development of ASP technology expand the applied rage of the INTERNET, and also influenced the educational field deeply, because of the characteristic of the mutuality and dynamics. This article explains the procedure for making use of the ASP technology to build the Assignment Delivery And Correction System. This system can transform the ways students delivering and teachers correcting homework, make the students delivering it with good flexibility and free the teachers from the onerous work. This system mainly develop by DREAMWEAVER MX 關(guān)鍵詞： ASP 技術(shù)； VBScrip； JavaScrip；教育 Keywords： ASP technology； VBScript； JavaScript； Education