基于asp作业提交与批改系统—免费毕业设计论文

基于asp作业提交与批改系统—免费毕业设计论文内容摘要：

ongfont 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学号： 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。 charset=gb2312 title写入注册信息 /title /head body % xuehao = trim(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。 数据库连接 strConn amp。 dbq= amp。 ( ) dim strsql,rs strsql=select * from 登陆 where 学号 = 39。 amp。 xuehaoamp。 39。 set rs=(strsql) if not then’判断是否有重名 (该用户已经存在，请重新输入 ) 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 /html 4 . !DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//EN html head meta equiv=ContentType content=text/html。 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。 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) (,) = = /script 5 . %@LANGUAGE=VBSCRIPT CODEPAGE=936% html head meta equiv=ContentType content=text/html。 charset=gb2312 title学号定目录页面 /title /head body % sXuehao=(zyxt_user_nstu)39。 :sTemp=left(sXuehao,5) 39。 左起取学号前 5 位 sHW=(work) sHW = A’设置作业科目 sDir = ls’设置目录 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 = 现在时间是 amp。 now() amp。 已过了交作业的截止期。 Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} 39。 数据库连接 strConn amp。 dbq= amp。 ( sDiramp。 /Workamp。 left(sTemp, 1) amp。 ) sql = select 内容 from 作业题目 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 % 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)%作业 /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网络提交作业 /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。 作业号 /b： font color=redamp。 stemp amp。 /font 39。 提交给 六个 form 字段 (提交的作业可多次修改更新覆盖，截止至 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。 显示作业已截止 else input id=39。 submit139。 name=39。 tijiao39。 type=submit value=39。 将 作 业 文 本 填 入 上 框 内 后 提 交 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作业查询 /b|/tdtd align=left if tishu 1 then for i = 1 to tishu 1 39。 链 ?hao=A3amp。 ml=cui 查阅以前的作业 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。 学号 99 教师上传 ?md=uplamp。 ml=cui sTemp = sDir。