教務(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
%>