【正文】 內(nèi)容 提交作業(yè) 調(diào)用 作業(yè)入庫 學(xué)號后兩位 99？ 顯示上傳界面 選擇上傳文件 文件上傳 調(diào)用 查詢系統(tǒng) 讀 列出以往作業(yè) 點擊 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 為空 行開頭是否 ”end“ 題數(shù) =0 行開頭是否 ”” 且題數(shù) =1 題數(shù) =1 題目行內(nèi)容傳給 timu 題數(shù) =0 顯示錯誤信息 讀 成績信息傳遞給各變量 顯示題目 學(xué)號后兩位 99？ 統(tǒng)計作業(yè)提交情況 顯示學(xué)生成績信息 備注為 ?9?? 顯示無范例 顯示作業(yè)范例 調(diào)用 獲得目錄模式信息 從服務(wù)器上獲得真實路徑 作業(yè)系統(tǒng) 模式為上傳？ 創(chuàng)建一個事例 圖 38 編碼 全系統(tǒng)共有 13 個文件，除了 HTML語言編寫， 文本文件 ，數(shù)據(jù)庫文件 、 、模擬已經(jīng)批改好的作業(yè)數(shù)據(jù)庫文件 ，其他均為 ASP 編寫。 charset=gb2312 title作業(yè)提交與批改系統(tǒng) /title /head body bgcolor=8DA6CB onLoad=startclock()。amp。amp。amp。guset39。guset39。 charset=gb2312 title新用戶注冊 /title /head body bgcolor=8DA6CB p /p p align=center /p p align=centerstrongfont color=000000 size=+3 face= 宋體 新 用 戶 注 冊/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真實姓名： input type=text name=xMing /p p align=center學(xué)號： 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ù)庫連接 strConn amp。dbq= amp。amp。39。 values(39。xuehaoamp。,39。mimaamp。,39。xhNumamp。,39。xMingamp。) set rs=(sql) now() amp。 charset=gb2312 title身份認證 /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é)號 = 39。xuehaoamp。and 密碼 =39。mimaamp。 set rs=(strsql) if then (用戶名或密碼錯 ) 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)在時間是 amp。已過了交作業(yè)的截止期。數(shù)據(jù)庫連接 strConn amp。dbq= amp。/Workamp。) sql = select 內(nèi)容 from 作業(yè)題目 where 學(xué)號 =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è)號 /b： font color=redamp。/font 39。 rRiqi amp。_ trtd colspan=2font color=blueamp。,/fontamp。_ trtd colspan=2b學(xué)號 /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(xuehao,2) = 99 then 39。ml=cui sTemp = sDir table border=0 cellpadding=1 cellspacing=1 width=39。trtd colspan=4hr width=100% align=leftamp。 sHW amp。 sHW amp。 sHW amp。_ trFORM METHOD=39。 ENCTYPE=39。 ACTION=39。ml=amp。39。_ INPUT TYPE=39。 SIZE=39。 NAME=39。/td/tramp。 上 傳 至 amp。39。height:18pt。39。_ td align=right valign=bottom width=300 a href=39。sDiramp。 查詢 amp。 或下載/a/tdamp。_ td width=39。 /td/tr/table end if /body/html % /html 7 . %LANGUAGE=VBSCRIPT CODEPAGE=936% htmlheadtitle查詢數(shù)據(jù)庫作業(yè) /title meta content=text/html。fontsize:14px} td{fontfamily:宋體 ,arial。from URL 鏈接： ?hao=T1amp。/) set MyFile = () tishu = 0 set MyText = (sFile, 1) 39。 sLine amp。 。 ( sDiramp。 sHao amp。 amp。 39。以前未提交過作業(yè) sReadFromDB = 你未提交過 amp。作業(yè) jihao = 404?.? else sReadFromDB = rs(內(nèi)容 ) sReadFromDB = replace(sReadFromDB, BR, vbCrLf ) ri_qi = rs(日期 ): defen = rs(得分 ): dping = rs(點評 ): jihao = rs(機號 ) end if % % body bgColor=D9ECFFtable border=39。 width=39。 align=39。 cellspacing=39。amp。FONTSIZE: 35px39。95%39。_ trtd colspan=4bamp。作業(yè)號 /b： font color=redamp。/font (至 amp。 完成 )amp。_ trtd colspan=4font color=blueamp。/fonthr width=100% align=left/td/tr if right(xuehao,2) = 99 then set rs = (select count(*) from 作業(yè)題目 ) trtd colspan=4bamp。 作業(yè)提交人數(shù)： /bamp。 (amp。班 )/td/tr set rs = (select 學(xué)號 ,得分 from 作業(yè)題目 order by 學(xué)號 ) s