📄 login.asp
字号:
<%@ Language=VBScript %>
<%
'判断用户是否提交表单
if isempty(Request.Form("Login")) then
Session.abandon
Session("NumAttempts") = 1
TheMessage = "请在下面登录:(缺省管理员用户名:1,密码:1)"
'校验用户提交的用户信息
else
set conn = server.createobject ("adodb.connection")
conn.open "ASPData", "sa", "yourpassword"
TheUsername=Request.Form("Username")
ThePassword=Request.Form("Password")
If Instr(TheUsername, "'")=0 and Instr(ThePassword, "'")=0 and Instr(TheUsername, "'")=0 _
and Instr(ThePassword, "'")=0 then
set RSLogin = conn.Execute("select * from PSLogins where " & "LoginID = '" _
& TheUsername & "' and " & "Password = '" & ThePassword & "'")
if RSLogin.EOF then
Session("NumAttempts") = Session("NumAttempts") + 1
if Application("NumAttempts") = 0 then
TheMessage = "登录不成功，请重试:"
elseif Session("NumAttempts") > Application("NumAttempts") then
TheMessage = "登录不成功，登录次数已满，无法重试"
else
TheTimes=Application("NumAttempts")-Session("NumAttempts")+1
TheMessage = "登录不成功，还有" & TheTimes & "次机会，请重试:"
end if
else
Session("ID") = RSLogin("LoginID")
Application("ID") = RSLogin("LoginID")
Session("Name") = RSLogin("Name")
Session("Password") = RSLogin("Password")
Session("Department") = RSLogin("Department")
Session("EmailAddress")=RSLogin("EmailAddress")
Session("Position")=RSLogin("Position")
Session("InternalPhone")=RSLogin("InternalPhone")
Session("HomePhone")=RSLogin("HomePhone")
Session("MobilePhone")=RSLogin("MobilePhone")
Session("QQ")=RSLogin("QQ")
Session("Birthday")=RSLogin("Birthday")
Session("HomeAddress")=RSLogin("HomeAddress")
Session("IsSystemManager")=RSLogin("IsSystemManager")
Session("IsFinancialManager")=RSLogin("IsFinancialManager")
Response.Redirect "./html/home.asp"
end if
else
TheMessage="用户名或者密码输入不合格式"
end if
end if
%>
<html>
<head>
<title> 系统登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width=800 border=0 align=center cellpadding=2 cellspacing=1 bordercolor="#996633" bgcolor=#164DA8>
<tr bgcolor=white>
<td valign=center bgcolor="#0066CC" >
<div align="center"><font color="#CCCCCC" size="+7" face="华文隶书"><strong>公司内部办公信息管理系统</strong></font></div></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
</tr>
</table>
<table width=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr>
<td height="23" colspan=3> <font color=white>
<P ALIGN="CENTER"><font size="2">公司内部办公信息管理系统->登录页面</font></font></td></tr>
<tr bgcolor=white >
<td><a href=".././html/home.asp"><font color="#104DAD" size="2">返回上一站点</font></a></td>
<td align=center> <font color="#104DAD" size="2" ><% response.write TheMessage %></FONT></td>
<td align=right><a href="Login.asp"><font color="#104DAD" size="2">系统使用说明</font></a></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
</tr>
</table>
<br>
<table width=800 border="0" align=center bgcolor=#3466BB height=350>
<tr bgcolor=white>
<td align=middle bgcolor=#B6CAEB class=itm height="8" colspan="2">
<br> <% response.write TheMessage %>
<div align="center">
<%
if TheMessage <> "登录不成功，登录次数已满，无法重试" then
%>
<form name="form" method="post" action="login.asp">
<p><font color="#3466BB">用户</font>
<input class=itm name=UserName size=15>
</p>
<p><font color="#3466BB">密码</font>
<input class=itm name=Password size=15 type=password>
<br>
<br>
<input type="submit" name="Login" value="登录" style="border: 1px solid #B6CAEB; background-color: #3466BB; color: #FFFFFF">
<input type="reset" name="Reset" value="重设" style="border: 1px solid #B6CAEB; background-color: #3466BB; color: #FFFFFF">
</p>
</form>
<%
end if
%>
</div></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -