【正文】 文本 7 主索引 機(jī)號(hào) 文本 12 紀(jì)錄學(xué)生提交作業(yè)時(shí)所使用機(jī)器的 IP 得分 文本 2 提交作業(yè)時(shí)記錄提交次數(shù)，批改時(shí)老師手動(dòng)改為分?jǐn)?shù) 點(diǎn)評(píng) 文本 150 老師手動(dòng)鍵入批語(yǔ) 內(nèi)容 備注 8K 學(xué)生提交的作業(yè)文本，會(huì)自動(dòng)替換文本中的雙引號(hào) 備注 文本 20 老師手動(dòng)改一個(gè)記錄的該字段為 9，標(biāo)記為范例作業(yè) 登陸表：表 22 字段名 字段類(lèi)型 寬度 索引 備注 學(xué)號(hào) 文本 10 主索引 學(xué)生可以自己選定自己的登陸名 密碼 文本 10 學(xué)生在新用戶(hù)注冊(cè)是可自己填入作為登陸密碼 xhNum 文本 7 必須填入真實(shí)的學(xué)號(hào) xMing 文本 10 必須填入真實(shí)的姓名 文件內(nèi)容： 退 出 （ 1）注冊(cè)登錄到 [教學(xué)園地 ] （ 2）《匯編語(yǔ)言編程》教材 17 頁(yè)第一章所有習(xí)題 （ 1）熟悉 ASP 程序 （ 2）用 ASP 程序編寫(xiě)一個(gè)登陸系統(tǒng) end （本例供模擬測(cè)試作業(yè)提交） 新作業(yè)查以 Ai（ 為開(kāi)始標(biāo)記 ， i 為第 i 次作業(yè)）開(kāi)頭插在此行之前，日期為作業(yè)提交的最后日期，超過(guò)日期將不能提交， end行為判斷作業(yè)結(jié)束的結(jié)束行，以上內(nèi)容為系統(tǒng)用于讀取作業(yè)的固定格式不能刪改。當(dāng)用 戶(hù)是第一次登陸時(shí)用戶(hù)應(yīng)點(diǎn)擊新用戶(hù)注冊(cè)，進(jìn)入新用戶(hù)注冊(cè)界面，進(jìn)行新用戶(hù)信息填寫(xiě)。老用戶(hù)則直接填入用戶(hù)名和密碼，提交 判斷身份，進(jìn)入系統(tǒng)。 根據(jù)學(xué)號(hào)進(jìn)入老師布置作業(yè)提交頁(yè)面（ ）。與學(xué)生頁(yè)面不同的是多出下面的文件上傳部分。 其次顯示的是當(dāng)前布置 的作業(yè)，因?yàn)? 是個(gè)順序文本文件，例子中讀過(guò)了前一個(gè)題目后顯示最后一個(gè)，也就是最近布置的作業(yè)。在下方為提交作業(yè)的文本輸入框，如原先提交過(guò)，則調(diào)出提交過(guò)的當(dāng)次作業(yè)繼續(xù)修改。當(dāng)過(guò)了截止日期后，本次作業(yè)將不再有按鈕顯示，也就不能繼續(xù)提交，以控制統(tǒng)一的時(shí)間。如是再次提交，則對(duì)該學(xué)號(hào)進(jìn)行更新記錄，覆蓋以前的內(nèi)容；若沒(méi)有提交過(guò)，則將該內(nèi)容存入數(shù)據(jù)庫(kù)中。批改后將本地的 ，再清空 庫(kù)，供下次學(xué)生提交作業(yè)使用。 老師可以根據(jù)每個(gè)學(xué)生的 IP 地址、提交作業(yè)的時(shí)間、次數(shù)，以形成學(xué)生成績(jī)的正確評(píng)價(jià)；可以方便地比較平衡作業(yè)得分，系統(tǒng)的點(diǎn)評(píng)可以復(fù)制拷貝，減 少了書(shū)寫(xiě)的工作量 2. 各部分流程圖 （ 1）作業(yè)提交流程圖如圖 36 F T F T 作業(yè)系統(tǒng) 讀 取題號(hào)，日期 行開(kāi)頭是否 ”end“ 行開(kāi)頭是否 ”” 圖 36 (2)作業(yè)查詢(xún)流程圖如圖 37 F T F T F T 題數(shù) =題數(shù) +1 是否提交過(guò) 讀數(shù)據(jù)庫(kù)中作業(yè)題目表 文本框?yàn)榭? 內(nèi)容讀入文本框 是否過(guò)期 關(guān)閉提交按鈕 修改文本框內(nèi)容 提交作業(yè) 調(diào)用 作 業(yè)入庫(kù) 學(xué)號(hào)后兩位 99？ 顯示上傳界面 選擇上傳文件 文件上傳 調(diào)用 查詢(xún)系統(tǒng) 讀 列出以往作業(yè) 點(diǎn)擊 i 次作業(yè) 調(diào)用 讀到第 i 次作業(yè) 圖 37 （ 3）文件上傳流程圖如圖 38 F F T T T F F F F F T T T 題數(shù) =1，取日期 timu 為空 行開(kāi)頭是否 ”end“ 題數(shù) =0 行開(kāi)頭是否 ”” 且題數(shù) =1 題數(shù) =1 題目行內(nèi)容傳給 timu 題數(shù) =0 顯示錯(cuò)誤信息 讀 成績(jī)信息傳遞給各變量 顯示題目 學(xué)號(hào)后兩位 99？ 統(tǒng)計(jì)作業(yè)提交情況 顯示學(xué)生成績(jī)信息 備注為 ’9’? 顯示無(wú)范例 顯示作業(yè)范例 調(diào)用 獲得目錄模式信息 從服務(wù)器上獲得真實(shí)路徑 作業(yè)系統(tǒng) 模式為上傳？ 創(chuàng)建一個(gè)事例 圖 38 編碼 全系統(tǒng)共有 13 個(gè)文件，除了 HTML語(yǔ)言編寫(xiě)， 文本文件 ，數(shù)據(jù)庫(kù)文件 、 、模擬已經(jīng)批改好的作業(yè)數(shù)據(jù)庫(kù)文件 ，其他均為 ASP 編寫(xiě)。 charset=gb2312 title作業(yè)提交與批改系統(tǒng) /title /head body bgcolor=8DA6CB onLoad=startclock()。amp。amp。amp。guset39。guset39。 charset=gb2312 title新用戶(hù)注冊(cè) /title /head body bgcolor=8DA6CB p /p p align=center /p p align=centerstrongfont color=000000 size=+3 face= 宋體 新 用 戶(hù) 注 冊(cè)/font/strong/p form name=form1 method=post action= p /p p align=center 用戶(hù)名： 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。數(shù)據(jù)庫(kù)連接 strConn amp。dbq= amp。amp。39。 values(39。xuehaoamp。,39。mimaamp。,39。xhNumamp。,39。xMingamp。) set rs=(sql) now() amp。 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。(ls/) dim strsql,rs strsql=select * from 登陸 where 學(xué)號(hào) = 39。xuehaoamp。and 密碼 =39。mimaamp。 set rs=(strsql) if then (用戶(hù)名或密碼錯(cuò) ) end if xhNum=rs(xhNum) xMing=rs(xMing) d = DateAdd(d,365,Date) (zyxt_user_nstu) = lcase(xhNum) (zyxt_user_nstu).Expires = FormatDateTime(d) (zyxt_user_xmin) = lcase(xMing) (zyxt_user_xmin).Expires = FormatDateTime(d) % script language = JavaScript bschitchat=(39。,39。,39。) (0,0) (,) = = /script 5 . %LANGUAGE=VBSCRIPT CODEPAGE=936% html head meta equiv=ContentType content=text/html。:sTemp=left(sXuehao,5) 39。 sHW amp。ml=amp。from jxHomeWork0?work=Aamp。/workamp。) 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。br end if loop : zuoye = 現(xiàn)在時(shí)間是 amp。已過(guò)了交作業(yè)的截止期。數(shù)據(jù)庫(kù)連接 strConn amp。dbq= amp。/Workamp。) sql = select 內(nèi)容 from 作業(yè)題目 where 學(xué)號(hào) =39。 xuehao 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。fontsize:13px} /style title%=right(xuehao,2)%作業(yè) /title /head % body bgColor=8DA6CBtable border=39。 width=39。 align=39。 cellspacing=39。amp。FONTSIZE: 35px39。_ table border=39。 cellpadding=1 cellspacing=1 width=39。amp。post39。39。form39。_ td colspan=2bamp。作業(yè)號(hào) /b： font color=redamp。/font 39。 rRiqi amp。_ trtd colspan=2font color=blueamp。,/fontamp。_ trtd colspan=2b學(xué)號(hào) /b： font color=blueamp。/font b姓名 /b： font color=blueamp。/fontamp。 iphao amp。_ brtextarea name=39。 rows=39。 cols=39。 style=39。 FONTFAMILY: 宋體 。amp。/textareabr if DateDiff(d,rRiqi,date()) 0 then zuoye 39。submit139。tijiao39。將 作 業(yè) 文 本 填 入 上 框 內(nèi) 后 提 交 39。_ input type=39。 name=39。 value=39。 xuehao amp。amp。hidden39。xingming39。amp。39。_ input type=39。 name=39。 value=39。 iphao amp。amp。hidden39。dir39。amp。39。_ input type=39。 name=39。 value=39。 sTemp amp。 end if /td/form/tr/table table border=0 cellpadding=1 cellspacing=1 width=39。amp。鏈 ?hao=A3amp。?hao=amp。 si amp。ml=amp。39。 left(sTemp, 1) amp。/a | next end if /td/tr/table if right(xue