【正文】 .......................... 20 8 ..................................................... 22 9 ..................................................... 23 結(jié)束語(yǔ)： ................................................................ 24 致 謝： ................................................................ 24 主要參考文獻(xiàn)： .......................................................... 25 說(shuō)明： 感謝教學(xué)園地（ ）為本系統(tǒng)提供網(wǎng)絡(luò)空間。同過(guò)該系統(tǒng)能實(shí)現(xiàn)學(xué)生對(duì)作業(yè)的提交和對(duì)以往作業(yè)的成績(jī)查 詢，老師對(duì)作業(yè)的上傳和對(duì)學(xué)生提交作業(yè)數(shù)據(jù)庫(kù)的下載批閱及在批閱后的數(shù)據(jù)庫(kù)的上傳工作。 ③ 學(xué)生作業(yè)提交和查詢功能：學(xué)生可以在作業(yè)提交截止日期前多次提交作業(yè)，提交后作業(yè)入庫(kù)，并能查詢以往作業(yè)的成績(jī)。Microsoft Peer Web Services Version on Windows NT Workstation 根據(jù)對(duì)學(xué)號(hào)的判斷進(jìn)入不同的作業(yè)系統(tǒng)。當(dāng)用 戶是第一次登陸時(shí)用戶應(yīng)點(diǎn)擊新用戶注冊(cè)，進(jìn)入新用戶注冊(cè)界面，進(jìn)行新用戶信息填寫。 其次顯示的是當(dāng)前布置 的作業(yè)，因?yàn)? 是個(gè)順序文本文件，例子中讀過(guò)了前一個(gè)題目后顯示最后一個(gè)，也就是最近布置的作業(yè)。批改后將本地的 ，再清空 庫(kù)，供下次學(xué)生提交作業(yè)使用。amp。 charset=gb2312 title新用戶注冊(cè) /title /head body bgcolor=8DA6CB p /p p align=center /p p align=centerstrongfont color=000000 size=+3 face= 宋體 新 用 戶 注 冊(cè)/font/strong/p form name=form1 method=post action= p /p p align=center 用戶名： input name=xuehao type=text /p p align=center密 碼 ： input type=text name=mima /p p align=center真實(shí)姓名： input type=text name=xMing /p p align=center學(xué)號(hào)： input type=text name=xhNum /p p /p p align=center input type=submit name=Submit value=提交 /p p /p /form p align=centerstrongfont color=000000 size=+3 face=宋體 /font/strong/p /body /html 3 . html head meta equiv=ContentType content=text/html。39。mimaamp。xMingamp。xuehaoamp。,39。 sHW amp。) set MyFile = () tishu = 0 set MyText = (sFile, 1) do sLine = if left(sLine, 5) = end then exit do if left(sLine,1) = then sTemp = mid(sLine, 2, 2): rRiqi = mid(sLine, 5): timu = : tishu = tishu + 1 else timu = timu amp。dbq= amp。 set rs = (sql) if then sReadFromDB = else sReadFromDB = rs(0): sReadFromDB = replace(sReadFromDB, ＜ BR, vbCrLf) end if Set rs = Nothing: Set dbc = Nothing % html head meta equiv=ContentType content=text/html。 cellspacing=39。 cellpadding=1 cellspacing=1 width=39。form39。 rRiqi amp。/font b姓名 /b： font color=blueamp。 rows=39。amp。將 作 業(yè) 文 本 填 入 上 框 內(nèi) 后 提 交 39。 xuehao amp。amp。 value=39。dir39。 name=39。amp。ml=amp。ml=cui sTemp = sDir table border=0 cellpadding=1 cellspacing=1 width=39。 sHW amp。ml=amp。 NAME=39。height:18pt。 查詢 amp。fontsize:14px} td{fontfamily:宋體 ,arial。 。 39。 align=39。95%39。 完成 )amp。 (amp。 xuehao amp。*39。8039。_ trtd colspan=4b得分 /b： amp。_ trtdb amp。/font/td/tramp。style=39。 defen amp。amp。,39。,39。 now() amp。 zuoye amp。 xuehao amp。text/html。039。_ trtdfont style=39。判斷 \從右起最早出現(xiàn)的位置，從而得到文件名 filename =sFileSave: (FILE3).SaveAs filename sFileSave amp。_ trth colspan=3amp。 amp。 在開發(fā)的 過(guò)程中，我主要用的是 DREAMWEAVER 進(jìn)行網(wǎng)頁(yè)的制作。后來(lái)在老師和同學(xué)的幫助下找到正確的開發(fā)方法，對(duì)后來(lái)的開發(fā)工作起了非常重要的作用。本文闡述了如何運(yùn)用 ASP技術(shù)構(gòu)建一個(gè)網(wǎng)上作業(yè)提交和批改系統(tǒng)的過(guò)程，以期改變過(guò)去傳統(tǒng)的學(xué)生遞交作業(yè)，老師批改作業(yè)的方式，讓學(xué)生遞交作業(yè)更加靈活，同時(shí)減輕老師的工作量。規(guī)定了交作業(yè)的時(shí)間，學(xué)生卻由于疏忽忘帶作業(yè)本，老師批改完后還要將作業(yè)成績(jī)寫到成績(jī)簿上，這樣費(fèi)時(shí)費(fèi)力。 ③ 人機(jī)交互性好，容錯(cuò)性強(qiáng)，對(duì)用戶的操作上的錯(cuò)誤，系統(tǒng)能給出相應(yīng)的提示 （ 2） 系統(tǒng)功能要求 ① 用戶名認(rèn)證： 區(qū)別老師與同學(xué)的登錄。數(shù)據(jù)流圖中，圓框代表數(shù)據(jù)處理系統(tǒng)；箭頭代表數(shù)據(jù)的錄入和讀取。從開始的簡(jiǎn)單的電子公告牌的發(fā)布，到后來(lái)用 HTML 語(yǔ)言所編寫的靜態(tài)網(wǎng)頁(yè) ,再到如今應(yīng)用 ASP 服務(wù)器端的組件 ActiveX Data Object(ADO)訪問(wèn)數(shù)據(jù)庫(kù)實(shí)現(xiàn)了用戶和網(wǎng)站之間的交互試操作，從而為Inter 的進(jìn)一步發(fā)展注入了最強(qiáng)有力的動(dòng)力，同時(shí)也使其應(yīng)用范圍大大擴(kuò)大，很難想象沒有數(shù)據(jù)庫(kù)支持的 BBS，電子商務(wù)能如何運(yùn)行。 致 謝： 在本教學(xué)網(wǎng)站的開發(fā)過(guò) 程中，得到了崔海源老師的幫助與指導(dǎo)，并從崔老師的教學(xué)網(wǎng)站 —— 教學(xué)園地得到了很多的啟發(fā)。但是服務(wù)器返回的錯(cuò)誤信息往往十分的簡(jiǎn)短，有時(shí)甚至就是錯(cuò)誤的代號(hào)，因此調(diào)試起來(lái)有一定的困難。當(dāng)然在這個(gè)過(guò)程中肯定要碰到許多的問(wèn)題，也有許多值得總結(jié)的東西。 amp。039。ml=amp。center39。 style type=text/css body{fontfamily:宋體 。 cstr(cint(abs(defen))+1) amp。 cstr(cint(defen)1) amp。 jihao amp。) set rs=(sql) now() amp。,39。 values(39。 charset=gb2312 title作業(yè)入庫(kù) /title /head body % xuehao=request(xuehao) jihao =request(iphao) zuoye =request(zuoye) tihao =request(tihao) sDir =request(dir) sDBFile = ls/ Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} strConn amp。amp。 rows=39。 xuehao amp。/td/tr end if sql = select * from 作業(yè)題目 where 備注 =39。 FONTSIZE: 14px39。zuoye39。/font/tdamp。 rs(1) amp。/fonthr width=100% align=left/td/tr if right(xuehao,2) = 99 then set rs = (select count(*) from 作業(yè)題目 ) trtd colspan=4bamp。作業(yè)號(hào) /b： font color=redamp。amp。作業(yè) jihao = 404?.? else sReadFromDB = rs(內(nèi)容 ) sReadFromDB = replace(sReadFromDB, BR, vbCrLf ) ri_qi = rs(日期 ): defen = rs(得分 ): dping = rs(點(diǎn)評(píng) ): jihao = rs(機(jī)號(hào) ) end if % % body bgColor=D9ECFFtable border=39。 sHao amp。/) set MyFile = () tishu = 0 set MyText = (sFile, 1) 39。_ td width=39。_ td align=right valign=bottom width=300 a href=39。 上 傳 至 amp。_ INPUT TYPE=39。 ENCTYPE=39。 sHW amp。 left(sTemp, 1) amp。?hao=amp。 sTemp amp。39。amp。_ input type=39。hidden39。 name=39。submit139。 style=39。 iphao amp。,/fontamp。作業(yè)號(hào) /b： font color=redamp。post39。FONTSIZE: 35px39。 width=39。) sql = select 內(nèi)容 from 作業(yè)題目 where 學(xué)號(hào) =39。已過(guò)了交作業(yè)的截止期。from jxHomeWork0?work=Aamp。) (0,0) (,) = = /script 5 . %LANGUAGE=VBSCRIPT CODEPAGE=936% html head meta equiv=ContentType content=text/html。mimaamp。 charset=gb2312 title身份認(rèn)證 /title /head % language=VBSCRIPT%% xuehao = trim(lcase(Request(xuehao))): mima = lcase(Request(mima)) Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} strConn amp。xhNumamp。xuehaoamp。dbq= amp。guset39。 charset=gb2312 title作業(yè)提交與批改系統(tǒng) /title /head body bgcolor=8DA6CB onLoad=startclock()。當(dāng)過(guò)了截止日期后，本次作業(yè)將不再有按鈕顯示，也就不能繼續(xù)提交，以控制統(tǒng)一的時(shí)間。 根據(jù)學(xué)號(hào)進(jìn)入老師布置作業(yè)提交頁(yè)面（ ）。老師在批改完后將 拷貝為 上傳，供網(wǎng)上備查以前歷次的作業(yè)；同時(shí)再將清空的 庫(kù)文件上傳，供下次提交作業(yè)用；所有布置的題目用一個(gè)文本文件 書寫，便于教師了解各個(gè)題目保持前后連貫、系統(tǒng)規(guī)劃，也便于添加鍵入。因?yàn)?window95 已經(jīng)很少人使用這個(gè)操作系統(tǒng)了，最少都使用 98 的啦！而 XP+IIS 則是 Home版對(duì) IIS 不支持，即使是 Professional 版對(duì) IIS 也不是完全兼容支持，有些功能配合得不夠完美，因而較少人采用。但是如果是在本機(jī)上面，那就必須將自己的電腦設(shè)置成為服務(wù)器。學(xué)生可以看到本次作業(yè)的題目和歷次作業(yè)的成績(jī)，