教務(wù)管理系統(tǒng)源代碼

主頁(yè)登錄部分?? 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")="學(xué)生"? 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"密碼錯(cuò)誤"
?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"密碼錯(cuò)誤"
?End If
ElseIf request.form("D1")="教務(wù)管理員" 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"密碼錯(cuò)誤"
?End If
Else
?? Session("stuid")=""
?? Session("teaid")=""
?? Session("admid")=""
End If?
%>?

二、學(xué)生用戶界面
（一）實(shí)現(xiàn)選課??? student.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("stuid")="" Then
Response.Redirect "default.asp"
Response.write"請(qǐng)先登錄"
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"請(qǐng)先登錄"
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
%>

相關(guān)電子資料下載

• Makefile簡(jiǎn)介和使用方法 530
• 當(dāng)一名高職生成為開源代碼頂級(jí)貢獻(xiàn)者 111
• git命令的基本使用 357
• 分享一套生產(chǎn)管理MES系統(tǒng)源碼，可以直接拿來搞錢的好項(xiàng)目 140
• C/c++源代碼qt軟件 svn版本管理開發(fā)如何防泄密？ 48
• 為什么安秉信息的源代碼防泄密軟件這么穩(wěn)定？ 76
• C語(yǔ)言必備知識(shí)編譯預(yù)處理 421
• 非常可靠的c#+svn或git服務(wù)器源代碼防泄密方案 全解析 82
• 極狐GitLab—新一代源代碼管理倉(cāng)庫(kù) 152
• 能夠生成java文檔注釋的命令 140