在线观看www成人影院-在线观看www日本免费网站-在线观看www视频-在线观看操-欧美18在线-欧美1级

您好,歡迎來電子發燒友網! ,新用戶?[免費注冊]

您的位置:電子發燒友網>源碼下載>其它程序>

教務管理系統源代碼

大小:94 人氣: 2010-02-09 需要積分:0
{$username}的空間

用戶級別:注冊會員

貢獻文章:

貢獻資料:

教務管理系統源代碼

主頁登錄部分?? 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
%>

非常好我支持^.^

(1) 50%

不好我反對

(1) 50%

      發表評論

      用戶評論
      評價:好評中評差評

      發表評論,獲取積分! 請遵守相關規定!

      ?
      主站蜘蛛池模板: 狠狠躁夜夜躁人人爽天天段 | 国产爱搞 | 特级一级全黄毛片免费 | 看黄网站在线 | 天天做天天爱天天爽天天综合 | 在线观看午夜 | 屁股趴过来欠打高h | 99免费观看视频 | 久久日精品 | 天天操天天爱天天干 | www.色五月 | 1024你懂的在线观看 | 综合色99 | 狠狠操操 | 欧美极品 | 男女午夜免费视频 | 欧美成人激情在线 | 天堂资源在线观看 | 欧美色图一区二区 | 色综合天天综合给合国产 | 天天操夜夜操美女 | 毛片视频网址 | 精品四虎免费观看国产高清 | 欧美日本一区二区三区道 | 免费视频不卡一区二区三区 | www.淫| 女上男下边吃奶边做视频成都 | 国产三级国产精品国产普男人 | 1000又爽又黄禁片在线久 | 亚洲人成在线精品不卡网 | 天天操综合网 | 夜间免费小视频 | 成人国产精品一级毛片了 | 精品少妇一区二区三区视频 | 欧美成人生活片 | 日日草夜夜草 | 欧美成人午夜影院 | 亚洲无吗在线视频 | 毛片三级在线观看 | 国产日本久久久久久久久婷婷 | 黄色网址中文字幕 |