【文章內(nèi)容簡(jiǎn)介】 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。數(shù)據(jù)庫(kù)連接 strConn amp。 。dbq= amp。 ( ) dim strsql,rs strsql=select * from 登陸 where 學(xué)號(hào) = 39。amp。xuehaoamp。39。 set rs=(strsql) if not then’判斷是否有重名 (該用戶已經(jīng)存在，請(qǐng)重新輸入 ) else sql = insert into 登陸 (學(xué)號(hào) ,密碼 ,xhNum,xMing) sql = sql amp。 values(39。amp。xuehaoamp。39。,39。amp。mimaamp。39。,39。amp。xhNumamp。39。,39。amp。xMingamp。39。) set rs=(sql) now() amp。 ＜ font color=red＜ b新用戶注冊(cè)成功＜ /b＜ /font＜ /center end if % /body /html 4 . !DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//EN html head meta equiv=ContentType content=text/html。 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。dbq=amp。(ls/) dim strsql,rs strsql=select * from 登陸 where 學(xué)號(hào) = 39。amp。xuehaoamp。39。and 密碼 =39。amp。mimaamp。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。39。,39。bschitchat39。,39。fullscreen=no,Status=no,scrollbars=yes,resizable=no39。) (0,0) (,) = = /script 5 . %@LANGUAGE=VBSCRIPT CODEPAGE=936% html head meta equiv=ContentType content=text/html。 charset=gb2312 title學(xué)號(hào)定目錄頁(yè)面 /title /head body % sXuehao=(zyxt_user_nstu)39。:sTemp=left(sXuehao,5) 39。左起取學(xué)號(hào)前 5 位 sHW=(work) sHW = A’設(shè)置作業(yè)科目 sDir = ls’設(shè)置目錄 sTemp = ?work=amp。 sHW amp。amp。ml=amp。 sDir sTemp % /body /html 6 . %@LANGUAGE=VBSCRIPT CODEPAGE=936% % 39。from jxHomeWork0?work=Aamp。ml=ls xuehao = (zyxt_user_nstu) xingming = (zyxt_user_xmin) sHW = (work) sDir= (ml) iphao = (REMOTE_ADDR) sFile = (sDiramp。/workamp。sHWamp。) 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。 sLine amp。br end if loop : zuoye = 現(xiàn)在時(shí)間是 amp。 now() amp。已過(guò)了交作業(yè)的截止期。 Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} 39。數(shù)據(jù)庫(kù)連接 strConn amp。 。dbq= amp。 ( sDiramp。/Workamp。 left(sTemp, 1) amp。) sql = select 內(nèi)容 from 作業(yè)題目 where 學(xué)號(hào) =39。 amp。 xuehao amp。 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。 charset=gb2312 style type=text/css body,td,th{fontfamily:宋體 。fontsize:13px} /style title%=right(xuehao,2)%作業(yè) /title /head % body bgColor=8DA6CBtable border=39。039。 width=39。90%39。 align=39。center39。 cellspacing=39。139。amp。_ trtdfont style=39。FONTSIZE: 35px39。 color=redb網(wǎng)絡(luò)提交作業(yè) /b/font/td/tr/tableamp。_ table border=39。039。 cellpadding=1 cellspacing=1 width=39。95%39。amp。_ trform method=39。post39。 action=39。39。 name=39。form39。amp。_ td colspan=2bamp。 sWorkName amp。作業(yè)號(hào) /b： font color=redamp。 stemp amp。/font 39。 提交給 六個(gè) form 字段 (提交的作業(yè)可多次修改更新覆蓋，截止至 amp。 rRiqi amp。 20 時(shí) )brb題目 /b：/td/tramp。_ trtd colspan=2font color=blueamp。 timu amp。,/fontamp。_ hr width=100% align=left/td/tramp。_ trtd colspan=2b學(xué)號(hào) /b： font color=blueamp。 xuehao amp。/font b姓名 /b： font color=blueamp。 xingming amp。/fontamp。_ bIP 號(hào) /b： font color=blueamp。 iphao amp。/fontamp。_ brtextarea name=39。zuoye39。 rows=39。1439。 cols=39。8039。 style=39。BACKGROUNDCOLOR: FAFCEE。 FONTFAMILY: 宋體 。 FONTSIZE: 14px39。amp。_ sReadFromDB amp。/textareabr if DateDiff(d,rRiqi,date()) 0 then zuoye 39。 顯示作業(yè)已截止 else input id=39。submit139。 name=39。tijiao39。 type=submit value=39。將 作 業(yè) 文 本 填 入 上 框 內(nèi) 后 提 交 39。amp。_ input type=39。hidden39。 name=39。xuehao39。 value=39。amp。 xuehao amp。39。amp。_ input type=39。hidden39。 name=39。xingming39。 value=39。amp。 xingming amp。39。amp。_ input type=39。hidden39。 name=39。iphao39。 value=39。amp。 iphao amp。39。amp。_ input type=39。hidden39。 name=39。dir39。 value=39。amp。 sDir amp。39。amp。_ input type=39。hidden39。 name=39。tihao39。 value=39。amp。 sTemp amp。39。 end if /td/form/tr/table table border=0 cellpadding=1 cellspacing=1 width=39。95%39。amp。_ trtd width=70b作業(yè)查詢 /b|/tdtd align=left if tishu 1 then for i = 1 to tishu 1 39。鏈 ?hao=A3amp。ml=cui 查閱以前的作業(yè) si = cstr(i): if i 9 then si = chr(i + 55) a href=39。?hao=amp。 left(sTemp, 1) amp。 si amp。amp。ml=amp。 sDir amp。39。amp。 left(sTemp, 1) amp。 si amp。/a | next end if /td/tr/table if right(xuehao,2) = 99 then 39。學(xué)號(hào) 99 教師上傳 ?md=uplamp。ml=cui sTemp = sDir table border=0 cellpadding=1 cellspacing=1 width=39。95%39。trtd colspan=4hr width=100% align=leftamp。_ b請(qǐng)選取 /b作業(yè)的 Workamp。 sHW amp。 和 Workamp。 sHW amp。?.mdb 和 Workamp。 sHW amp。 三個(gè)文件 b上傳 /b/td/tramp。_ trFORM METHOD=39。POST39。 ENCTYPE=39。multipart/formdata39。 ACTION=39。?md=uplamp。ml=amp。 sDir amp。39。td colspan=4amp。_ INPUT TYPE=39。FILE39。 SIZE=39。7039。 NAME=39。FILE339。/td/tramp。_ TRTD align=right width=185INPUT TYPE=SUBMIT VALUE=39。 上 傳 至 amp。 sTemp amp。39。 style=39。height:18pt。 width=176。39。/td/FORMamp。_ td align=right valign=bottom width=300 a href=39。amp。sDiramp。39。 查詢 amp。 sTemp amp。 或下載/a/tdamp。_ td width=180 /tdamp。_ td