📄 index.asp
字号:
<% @ LANGUAGE = "VBScript" %>
<%
Dim UserName, Password,Login
Dim cnn, rst, sSQL
UserName = Trim(Request.Form("txtUsername"))
Password = Trim(Request.Form("txtPassword"))
Login = Request.Form("btnLogin")
' 若未登录且当前无对话，则重定向至登录页面
If Login = "" And Session("UserName") = "" Then
Response.Redirect "login.htm"
End If
' 若登录但未输入用户名或密码，则重定向至登录页面
If (UserName = "" Or Password = "") And Login <> "" Then
Response.Redirect "login.htm"
End If
%>
<HTML>
<HEAD>
<TITLE>成绩管理系统</TITLE>
<STYLE>
TABLE {FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<!-- #include virtual = "/adovbs.inc" -->
<%
If Session("UserName") = "" Or _
(Session("UserName") <> UserName And UserName <> "") Then
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=g6;" & _
"UID=sa;;DATABASE=test"
cnn.Open
sSQL = "SELECT * FROM users WHERE user_name='" & _
UserName & "' AND password='" & Password & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
If rst.EOF Then
Response.Write "<P ALIGN = center><B>用户名或密码错误！</B></P>"
Response.Write "<P ALIGN = center>【<A HREF = login.htm>重新登录</A>】</P>"
Response.End
Else
Session("UserName") = rst("user_name")
Session("Level") = rst("purview_level")
End If
End If
%>
<% If Session("UserName") <> "" Then %>
<DIV ALIGN = "center">
<h1>成绩管理系统</hi>
<HR NOSHADE COLOR = "red" WIDTH = "90%" SIZE = "1">
<BR><TABLE CELLSPACING = "5" CELLPADDING = "5">
<TR>
<TH>◇学生资料管理</TH>
<% If Session("Level") = 2 Or Session("Level") = 3 Then%>
<TD>［<A HREF = "addinfo.asp">添加资料</A>］</TD>
<TD>［<A HREF = "editIinfo1.asp">修改资料</A>］</TD>
<TD>［<A HREF = "deleteinfo1.asp">删除资料</A>］</TD>
<% End If %>
<TD>［<A HREF = "browseinfo.asp">查询资料</A>］</TD>
</TR>
<TR>
<TH>◇课程设置管理</TH>
<% If Session("Level") = 2 Or Session("Level") = 3 Then %>
<TD>［<A HREF = "addcourse.asp">添加课程</A>］</TD>
<TD>［<A HREF = "editcourse1.asp">修改课程</A>］</TD>
<TD>［<A HREF = "fdeletecourse.asp">删除课程</A>］</TD>
<% End If %>
<TD>［<A HREF = "browsecourse.asp">查询课程</A>］</TD>
</TR>
<TR>
<TH>◇成绩数据管理</TH>
<% If Session("Level") = 2 Or Session("Level") = 3 Then %>
<TD>［<A HREF = "addscore.asp">录入成绩</A>］</TD>
<TD>［<A HREF = "editscore.asp">修改成绩</A>］</TD>
<TD>［<A HREF = "deletescore1.asp">删除成绩</A>］</TD>
<% End If %>
<TD>［<A HREF = "browsescore.asp">查询成绩</A>］</TD>
</TR>
<TR>
<% If Session("Level") = 3 Then %>
<TH>◇访问权限管理</TH>
<TD>［<A HREF = "changelevel.asp">更改级别</A>］</TD>
</TR>
<%
End If
End If
%>
</TABLE>
</DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -