基于asp作業(yè)提交與批改系統(tǒng)—免費(fèi)畢業(yè)設(shè)計(jì)論文-文庫吧資料
2024-12-01 00:26本頁面
【正文】 td colspan=4font color=blueamp。 完成 )amp。/font (至 amp。作業(yè)號 /b： font color=redamp。_ trtd colspan=4bamp。95%39。FONTSIZE: 35px39。amp。 cellspacing=39。 align=39。 width=39。作業(yè) jihao = 404?.? else sReadFromDB = rs(內(nèi)容 ) sReadFromDB = replace(sReadFromDB, BR, vbCrLf ) ri_qi = rs(日期 ): defen = rs(得分 ): dping = rs(點(diǎn)評 ): jihao = rs(機(jī)號 ) end if % % body bgColor=D9ECFFtable border=39。以前未提交過作業(yè) sReadFromDB = 你未提交過 amp。 39。 amp。 sHao amp。 ( sDiramp。 。 sLine amp。/) set MyFile = () tishu = 0 set MyText = (sFile, 1) 39。from URL 鏈接： ?hao=T1amp。fontsize:14px} td{fontfamily:宋體 ,arial。 /td/tr/table end if /body/html % /html 7 . %LANGUAGE=VBSCRIPT CODEPAGE=936% htmlheadtitle查詢數(shù)據(jù)庫作業(yè) /title meta content=text/html。_ td width=39。 或下載/a/tdamp。 查詢 amp。sDiramp。_ td align=right valign=bottom width=300 a href=39。39。height:18pt。39。 上 傳 至 amp。/td/tramp。 NAME=39。 SIZE=39。_ INPUT TYPE=39。39。ml=amp。 ACTION=39。 ENCTYPE=39。_ trFORM METHOD=39。 sHW amp。 sHW amp。 sHW amp。trtd colspan=4hr width=100% align=leftamp。ml=cui sTemp = sDir table border=0 cellpadding=1 cellspacing=1 width=39。/a | next end if /td/tr/table if right(xuehao,2) = 99 then 39。 left(sTemp, 1) amp。39。ml=amp。 si amp。?hao=amp。鏈 ?hao=A3amp。amp。 end if /td/form/tr/table table border=0 cellpadding=1 cellspacing=1 width=39。 sTemp amp。 value=39。 name=39。_ input type=39。39。amp。dir39。hidden39。amp。 iphao amp。 value=39。 name=39。_ input type=39。39。amp。xingming39。hidden39。amp。 xuehao amp。 value=39。 name=39。_ input type=39。將 作 業(yè) 文 本 填 入 上 框 內(nèi) 后 提 交 39。tijiao39。submit139。/textareabr if DateDiff(d,rRiqi,date()) 0 then zuoye 39。amp。 FONTFAMILY: 宋體 。 style=39。 cols=39。 rows=39。_ brtextarea name=39。 iphao amp。/fontamp。/font b姓名 /b： font color=blueamp。_ trtd colspan=2b學(xué)號 /b： font color=blueamp。,/fontamp。_ trtd colspan=2font color=blueamp。 rRiqi amp。/font 39。作業(yè)號 /b： font color=redamp。_ td colspan=2bamp。form39。39。post39。amp。 cellpadding=1 cellspacing=1 width=39。_ table border=39。FONTSIZE: 35px39。amp。 cellspacing=39。 align=39。 width=39。fontsize:13px} /style title%=right(xuehao,2)%作業(yè) /title /head % body bgColor=8DA6CBtable border=39。 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。 xuehao amp。) sql = select 內(nèi)容 from 作業(yè)題目 where 學(xué)號 =39。/Workamp。dbq= amp。數(shù)據(jù)庫連接 strConn amp。已過了交作業(yè)的截止期。br end if loop : zuoye = 現(xiàn)在時(shí)間是 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。/workamp。from jxHomeWork0?work=Aamp。ml=amp。 sHW amp。:sTemp=left(sXuehao,5) 39。) (0,0) (,) = = /script 5 . %LANGUAGE=VBSCRIPT CODEPAGE=936% html head meta equiv=ContentType content=text/html。,39。,39。 set rs=(strsql) if then (用戶名或密碼錯(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。mimaamp。and 密碼 =39。xuehaoamp。(ls/) dim strsql,rs strsql=select * from 登陸 where 學(xué)號 = 39。 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。) set rs=(sql) now() amp。xMingamp。,39。xhNumamp。,39。mimaamp。,39。xuehaoamp。 values(39。39。amp。dbq= amp。數(shù)據(jù)庫連接 strConn amp。 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真實(shí)姓名： 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。guset39。guset39。amp。amp。amp。 charset=gb2312 title作業(yè)提交與批改系統(tǒng) /title /head body bgcolor=8DA6CB onLoad=startclock()。 老師可以根據(jù)每個(gè)學(xué)生的 IP 地址、提交作業(yè)的時(shí)間、次數(shù)，以形成學(xué)生成績的正確評價(jià)；可以方便地比較平衡作業(yè)得分，系統(tǒng)的點(diǎn)評可以復(fù)制拷貝，減少了書寫的工作量 2. 各部分流程圖 （ 1）作業(yè)提交流程圖如圖 36 F T F T 作業(yè)系統(tǒng) 讀 取題號，日期 行開頭是否 ”end“ 行開頭是否 ”” 圖 36 (2)作業(yè)查詢流程圖如圖 37 F T F T F T 題數(shù) =題數(shù) +1 是否提交過 讀數(shù)據(jù)庫中作業(yè)題目表 文本框?yàn)榭? 內(nèi)容讀入文本框 是否過期 關(guān)閉提交按鈕 修改文本框內(nèi)容 提交作業(yè) 調(diào)用 作業(yè)入庫 學(xué)號后兩位 99？ 顯示上傳界面 選擇上傳文件 文件上傳 調(diào)用 查詢系統(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 為空 行開頭是否 ”end“ 題數(shù) =0 行開頭是否 ”” 且題數(shù) =1 題數(shù) =1 題目行內(nèi)容傳給 timu 題數(shù) =0 顯示錯(cuò)誤信息 讀 成績信息傳遞給各變量 顯示題目 學(xué)號 后兩位 99？
公司管理相關(guān)推薦
鄂ICP備17016276號-1