📄 login.asp
字号:
<!--#include file="Inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>雷诺家庭财务管理系统HomeIO2.0</title>
<style type="text/css">
.title{font-family: verdana, tahoma, sans-serif;FONT-SIZE: 14px;font-weight:bold}
.grey{FONT-SIZE: 12px;color:#666666}
.orange {font-family: verdana, tahoma, sans-serif;font-size:10px;color:#FF6600}
.orange A:link {font-family: verdana, tahoma, sans-serif;font-size:10px;color:#FF6600;text-decoration:underline}
.orange A:visited {font-family: verdana, tahoma, sans-serif;font-size:10px;color:#FF6600;text-decoration:underline}
.orange A:hover {font-family: verdana, tahoma, sans-serif;font-size:10px;color:#FF6600;text-decoration:underline}
.orange A:active {font-family: verdana, tahoma, sans-serif;font-size:10px;color:#FF6600;text-decoration:underline}
textarea, input, select{
background: #FFFFFF;
border: 1px solid #CCCCCC;
color: #000000;
font-family: verdana, tahoma, sans-serif;
font-size: 0.95em;}
.username{
background-image:url(images/username.gif);
background-position: 1px 1px;
background-repeat:no-repeat;
padding-left:20px;
height:20px;
FONT-SIZE: 12px;}
.password{
background-image:url(images/password.gif);
background-position: 1px 1px;
background-repeat:no-repeat;
padding-left:20px;
height:20px;
FONT-SIZE: 12px;}
</style>
</head>
<body>
<%
If Request("action")="loginout" Then
Session("admin") =""
End If
If Request.Form("action")="save" Then
dim admin,password,verifycode
admin=replace(trim(request.Form("admin")),"'","")
password=replace(trim(request.Form("password")),"'","")
'verifycode=replace(trim(request("verifycode")),"'","")
if admin="" or password="" then
Session("ewmsg") ="请正确填写用户名和密码！"
end if
'if cstr(session("getcode"))<>cstr(trim(request("verifycode"))) then
'Session("ewmsg") ="请输入正确的验证码！"
'end if
set rs=db("select * from [{pre}admin] where admin_name='"&admin&"' and admin_password='"&password&"' ",1)
if not(rs.bof and rs.eof) then
if password=rs("admin_password") then
session("admin")="login"
session.Timeout=20
rs.Close
set rs=nothing
response.Redirect "index.asp"
else
Session("ewmsg") ="对不起，登陆失败！"
end if
else
Session("ewmsg") ="对不起，登陆失败！"
end if
End If
%>
<br><br>
<form name="admininfo" method="post" action="login.asp">
<input type="hidden" id="action" name="action" value="save"/>
<table width="208" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#F4F4F4" class="title">雷诺家庭财务管理系统</td>
</tr>
<tr>
<td class="grey"><%
If Session("ewmsg") <> "" Then
Response.Write("<img src=""images/warning.gif"" width=""16"" height=""16"" align=""absmiddle"">"&Session("ewmsg"))
Session("ewmsg") = "" ' Clear message
End If
%></td>
</tr>
<tr>
<td class="title">用户名</td>
</tr>
<tr>
<td><input name="admin" type="text" class="username" size="30"></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td class="title">密码</td>
</tr>
<tr>
<td><input name="Password" type="password" class="password" size="30"></td>
</tr>
<tr>
<td class="orange"><a href="#">Get your Password ? </a></td>
</tr>
<tr>
<td align="right"><input type="image" src="images/loginin.gif" /></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -