?? login.asp
字號(hào):
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/StudentConn.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUserName=Replace(CStr(Request.Form("UserName")),"'","")
If MM_valUserName <> "" Then
MM_fldUserAuthorization="accesslevel"
MM_redirectLoginSuccess="Index.asp"
MM_redirectLoginFailed="Login.asp?logonfailed=true"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_StudentConn_STRING
MM_rsUser.Source = "SELECT UserName, password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM User WHERE UserName='" & MM_valUserName &"' AND password='" & Replace(CStr(Request.Form("password")),"'","") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' userName and password match - this is a valid user
Session("MM_UserName") = MM_valUserName
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And true Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>用戶登錄</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
function setfocus(){
document.form1.UserName.focus();
return;
}
</script>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 onLoad="setfocus()">
<!--#include file="Top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=46 background=images/p_left_2.gif> </TD>
<TD height="280" align="center">
<form Name="form1" method="post" action="<%=MM_LoginAction%>">
<%
if Request("logonfailed")<>"" then
Response.Write "<b><font size='4'>用戶名或密碼錯(cuò)誤！請(qǐng)重新登錄！</font></b><br><br>"
else
if Request.QueryString<>"" then
Response.Write "<b><font size='4'>你還沒(méi)有登錄或登錄已超時(shí)！請(qǐng)重新登錄！</font></b><br><br>"
else
Response.Write "<b><font size='4'>用 戶 登 錄</font></b><br><br>"
end if
end if
%>
<table width="262" border="0" align="center" height="123" cellspacing="3" cellpadding="0">
<tr>
<td height="30" align="right" valign="middle"> <b>用戶名：</b> </td>
<td height="30" align="left" valign="middle">
<input Name="UserName" type="text" size="15">
</td>
</tr>
<tr>
<td height="30" align="right" valign="middle"><b>密 碼：</b>
</td>
<td height="30" align="left" valign="middle">
<input Name="password" type="password" value="" size="15">
</td>
</tr>
<tr valign="middle">
<td colspan="2" align="center">
<input type="submit" Name="Submit" value="登 錄">
</td>
</tr>
</table>
</form>
<br>
未登錄用戶只能使用“<a href="InfoQuery.asp">學(xué)生信息查詢</a>”和“<a href="ScoreQueryStep1.asp">學(xué)生成績(jī)查詢</a>”功能！
</TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="CopyRight.asp"-->
</BODY>
</HTML>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -