📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
%>
<%
Dim UserName, Pwd
Dim cnn, rst, sSQL
UserName = Trim(Request.Form("txtUsername"))
Pwd = Trim(Request.Form("txtPassword"))
Login = Request.Form("btnLogin")
If Login = "" And Session("UserName") = "" Then
Response.Redirect "login.htm"
End If
If (UserName = "" Or Pwd = "") And Login <> "" Then
Response.Redirect "login.htm"
End If
%>
<HTML>
<HEAD>
<TITLE>成绩管理系统</TITLE>
<STYLE>
TABLE {FONT-SIZE: 9pt}
.STYLE2 {
font-size: 36pt;
color: #993333;
font-weight: bold;
}
.style3 {color: #FFFFFF}
</STYLE>
</HEAD>
<BODY>
<p align="center">
<!-- #include file = "inc\adovbs.inc" -->
<%
If Session("UserName") = "" Or (Session("UserName") <> UserName And UserName <> "") Then
Set cnn = Server.CreateObject("ADODB.Connection")
set rst=server.CreateObject("adodb.recordset")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb")
cnn.Open
sSQL = "SELECT * FROM users WHERE user_name='" & UserName & "' AND Pwd='" & Pwd & "'"
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 %>
<img src="image/logo.gif" width="500" height="200"></p>
<DIV ALIGN = "center"><br>
<BR><TABLE width="680" height="30%" border="1" CELLPADDING = "5" CELLSPACING = "0" bordercolor="#006699" bgcolor="#CCCCCC">
<TR>
<TH height="33.5" bgcolor="#003366"><span class="style3">◇学生资料管理</span></TH>
<% If Session("Level") = 2 Or Session("Level") = 3 Then%>
<TD bgcolor="#CCCCCC">［<A HREF = "addInfo.asp">添加资料</A>］</TD>
<TD bgcolor="#CCCCCC">［<A HREF = "editInfo.asp">修改资料</A>］</TD>
<TD bgcolor="#CCCCCC">［<A HREF = "deleteInfo.asp">删除资料</A>］</TD>
<% End If %>
<TD bgcolor="#CCCCCC">［<A HREF = "browseInfo.asp">查询资料</A>］</TD>
</TR>
<TR>
<% If Session("Level") = 3 Then %>
<TH height="33" bgcolor="#003366"><span class="style3">◇访问权限管理</span></TH>
<TD bgcolor="#CCCCCC">［<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 + -