index.asp ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) - ASP源码程序

gusucode.com > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文)\web\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>