;
文章:新闻EDA技术电源技术无线通信测量仪表嵌入式类电子技术制造技术半导体网络协议展会实验家电维修 3G  
  下载:EDA教程电源技术电子书籍电子元件无线通信通信网络电路图纸嵌入式类单片机传感/控制电子教材模拟数字
.... 音视频类
消费电子机械电子行业软件C/C++FPGA/ASIC规则标准家电维修DSPIC资料ARM软件电路图电子技术论坛
 
您当前的位置:电子发烧友-> 源码下载 -> 其它程序 -> 教务管理系统源代码下载 退出登录 用户管理
栏目导航
uCOS编程 C/C++语言编程
Symbian编程 Linux/uClinux/Unix编程
VHDL/Verilog/EDA源码 VxWorks/Nucleus/eCos/PalmOS
Windows编程 DSP编程
Labview源程序 matlab源程序
asp源码下载 php源码下载
jsp源码下载 asp.net源码下载
java源码下载 汇编编程
编译器/仿真器 驱动程序
集成开发环境源码 单片机编程
加密解密 数值算法/人工智能
其它程序 通讯/手机编程
热门下载
· 《Powerbuilder 9.0实用教...
· 4星级酒店管理系统
· 试题库管理系统
· 人事档案管理系统
· PowerBuilder 8.0基础篇源...
· 联机坦克游戏
· HTML Encryptv2.04
· HomePlus 主页特效专家
· 拼图游戏(java)
· 信用卡管理系统
专题相关
软件名称 教务管理系统源代码
运行环境 Win9X/Win2000/WinXP/Win2003/
整理时间 2010-2-9 15:31:51
新频道星级
新频道大小 94 KB csb23@126.com
下载统计
相关连接 官方主页  [点击收藏]
 技术资料介绍

    教务管理系统源代码

    主页登录部分   default.asp

    <% Option Explicit %>
    <% Response.Buffer=True %>
    <%
    If Trim(request.form("username"))<>"" AND Trim(request.form("pswd"))<>"" Then
       Dim db
       Set db=Server.CreateObject("ADODB.Connection")
       db.Open "jiaowu"
       Dim userid,pswd,strsql,rs
       userid=Request.Form("username")
       pswd=Request.Form("pswd")
    End If
    If request.form("D1")="学生"  Then
       strsql="Select * From stu Where sno='"&userid&"'"
       Set rs=db.Execute(strsql)
     If pswd=rs("spin") Then
       Session("stuid")=userid
       Response.Redirect"student.asp"
     Else
       Response.write"密码错误"
     End If

    ElseIf request.form("D1")="教师" Then
       strsql="Select * From tea Where tno='"&userid&"'"
       Set rs=db.Execute(strsql)
     If pswd=rs("tpin")   Then
       Session("teaid")=userid
       Response.Redirect"teacher.asp"
     Else
       Response.write"密码错误"
     End If
    ElseIf request.form("D1")="教务管理员" Then
       strsql="Select * From adm Where adm='"&userid&"'"
       Set rs=db.Execute(strsql)
     If pswd=rs("apin")   Then
       Session("admid")=userid
       Response.Redirect"adm.asp"
     Else
       Response.write"密码错误"
     End If
    Else
       Session("stuid")=""
       Session("teaid")=""
       Session("admid")=""
    End If 
    %> 

    二、学生用户界面
    (一)实现选课    student.asp
    <% Option Explicit %>
    <% Response.Buffer=True %>
    <%
    If Session("stuid")="" Then
    Response.Redirect "default.asp"
    Response.write"请先登录"
    Else
    Dim stuid,cnoid
    stuid=Session("stuid")
    cnoid=Request.form("T1")
    Dim db
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "jiaowu"
    Dim strsql,rs
    strsql="Insert Into score(cno,sno) values('"&cnoid&"','"&stuid&"')"
    Set rs=db.Execute(strsql)
    End If
    db.close
    Set db=Nothing
    %>
    (二)显示课表   cou_list.asp
    <% Option Explicit %>
    <% Response.Buffer=True %>
    <%
    If Session("stuid")="" Then
    Response.Redirect "default.asp"
    Response.write"请先登录"
    Else
    Dim db
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "jiaowu"
    Dim strsql,rs
    strsql="Select Distinct cou.cno,cou.cname,cou.tno, cou.room From cou"
    Set rs=db.Execute(strsql)
    End if
    %>

  点击进入教务管理系统源代码下载页面
点击此处立即下载 - 教务管理系统源代码
  相关技术资料下载   相关技术应用阅读
技术资料评论  (评论内容只代表网友观点,与本站立场无关!) 更多评论......
∷下载说明∷
为了达到最快的下载速度,推荐使用[网际快车]下载本站软件。
请一定升级到最新版[WinRAR3.5 ]才能正常解压本站提供的软件!
如果您发现该软件不能下载,请点击报告错误谢谢!
站内提供的所有软件包含破解及注册码均是由网上搜集,若侵犯了你的版权利益,敬请来信通知我们!

 
关于本站- 意见反馈 - 网站导航 - 帮助 - 隐私政策 - 联系我们 - 使用条款 - 安全承诺 - 友情连接 - 欢迎投稿
站长QQ:39550527 Powered by: 飓风网络(电路图
Copyright 2006-2008 Elecfans.Com.电子发烧友: 粤ICP备07065979号All Rights Reserved