【文章內(nèi)容簡介】 est(mima))) xhNum=trim(lcase(request(xhNum))):xMing=trim(request(xMing)) Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} 39。數(shù)據(jù)庫連接 strConn amp。 。dbq= amp。 ( ) dim strsql,rs strsql=select * from 登陸 where 學號 = 39。amp。xuehaoamp。39。 set rs=(strsql) if not then’判斷是否有重名 (該用戶已經(jīng)存在，請重新輸入) else sql = insert into 登陸(學號,密碼,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新用戶注冊成功＜/b＜/font＜/center end if% /body/html4 .!DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//ENhtmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title身份認證/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 學號 = 39。amp。xuehaoamp。39。and 密碼=39。amp。mimaamp。39。 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。bschitchat39。,39。fullscreen=no,Status=no,scrollbars=yes,resizable=no39。)(0,0)(,)==/script5 . %@LANGUAGE=VBSCRIPT CODEPAGE=936%htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title學號定目錄頁面/title/headbody% sXuehao=(zyxt_user_nstu)39。:sTemp=left(sXuehao,5) 39。左起取學號前5位sHW=(work)sHW = A’設(shè)置作業(yè)科目sDir = ls’設(shè)置目錄sTemp = ?work=amp。 sHW amp。amp。ml=amp。 sDir sTemp%/body/html6 . %@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)在時間是amp。 now() amp。已過了交作業(yè)的截止期。 Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} 39。數(shù)據(jù)庫連接 strConn amp。 。dbq= amp。 ( sDiramp。/Workamp。 left(sTemp, 1) amp。) sql = select 內(nèi)容 from 作業(yè)題目 where 學號=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 %htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312style type=text/cssbody,td,th{fontfamily:宋體。fontsize:13px}/styletitle%=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è)號/b：font color=redamp。 stemp amp。/font 39。 六個form字段 (提交的作業(yè)可多次修改更新覆蓋，截止至amp。 rRiqi amp。 20時)brb題目/b：/td/tramp。_ trtd colspan=2font color=blueamp。 timu amp。,/fontamp。_ hr width=100% align=left/td/tramp。_ trtd colspan=2b學號/b：font color=blueamp。 xuehao amp。/font　　　　b姓名/b： font color=blueamp。 xingming amp。/fontamp。_ 　　　　bIP號/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=