<% '仅限个人研究用,请勿它用 午日工作室 保留所有版权 '午日工作室专注于中小学校园网站建设及学校教学、教务管理等有关系统平台的开发与定制,现已经成功投入使用的有:网上选课系统、ftp网络空间实时开通平台、研究性学习平台等。同时也继续接企事业单位网站建设制作、中小型软件定制、软件平台集成等业务具体可联系 午日工作室 qq 386805832 e-mail : wrgzs@126.com www.lhdnw.com/wrgzs login=request.form("login") if login=1 then sid=SafeRequest("sid",0 ) userpass=SafeRequest("userpass",0 ) if sid="" or userpass="" then %> <% response.end end if set RS1=Server.CreateObject("ADODB.RecordSet") infolist1="select * from user_teacher where jsbh='"&sid&"' " RS1.open infolist1,conn,1,1 if rs1.eof then str="你的教师编号不对,请检查!" MsgShow str,"0",url 'str:提示消息内容;flag:0:返回,标志1:跳转到URL,标志2:关闭窗口 标志3:用于显示 标志4: 刷新页面 标志5: 刷新父窗口 'call CloseDatabase() else if rs1("pwd")=userpass then '------------------------------------------------------------------------------------ if rs1("User_type")="0" then str="你已经成功登录,可进行其他操作^_^" 'UserType="teacher" url="kc_teacher.asp" session("XZW_jsID")=sid session("JS_NAME")=rs1("name") set RS=Server.CreateObject("ADODB.RecordSet") infolist="select * from teacher where jsbh='"&sid&"' " RS.open infolist,conn,1,1 if rs.eof then str="没有您的课程信息,系统将返回首页!" MsgShow str,"0",url else %> <% end if call CloseDatabase() response.end '------------------------------------------------------------------------------------ elseif rs1("User_type")="1" then str="您是系统管理员,您已成功登录!^_^" url="kcgl.asp" 'rename=rs("rename") session("XZW_glyID")=sid %> <% MsgShow str,"1",url 'str:提示消息内容;flag:0:返回,标志1:跳转到URL,标志2:关闭窗口 标志3:用于显示 标志4: 刷新页面 标志5: 刷新父窗口 call CloseDatabase() response.end end if '------------------------------------------------------------------------------------ else str="你的密码有误,请检查!" MsgShow str,"0",url 'str:提示消息内容;flag:0:返回,标志1:跳转到URL,标志2:关闭窗口 标志3:用于显示 标志4: 刷新页面 标志5: 刷新父窗口 call CloseDatabase() end if end if end if %>

工程训练中心网上选课系统--教师登录

 

教师编号:
密    码: 原始默认密码为 12345

  

注意:登录后请先核对个人信息,然后查询学生名单。