📄 admin_login.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../fn/md5.asp"-->
<%Response.Buffer="True"%>
<STYLE type=text/css>A:link {
COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: none
}
A:active {
FONT-FAMILY: 宋体; TEXT-DECORATION: underline
}
A:hover {
COLOR: #84bd6b; TEXT-DECORATION: underline overline
}
BODY {
COLOR: #000000; FONT-FAMILY: 宋体; FONT-SIZE: 9pt
}
TABLE {
COLOR: #000000; FONT-FAMILY: 宋体; FONT-SIZE: 9pt
}
.f24 {
COLOR: #ff0000; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; TEXT-DECORATION: underline overline
}
.l17 {
LINE-HEIGHT: 170%
}
.f18 {
FONT-SIZE: 18px
}
</STYLE>
<html>
<head>
<title>成员登陆</title>
</head>
<body>
<center>
<form method"=post" action="">
<table border="0" width="30%" bgcolor="#00CCFF">
<tr>
<h2 align="center"><td>帐号:</td><td><input type="text" name="name" size="20"></td></h2>
</tr><tr>
<tr>
<td>密码:</td><td><input type="password" name="password" size="21"></td>
</tr><tr>
<td></td><td><input type="submit" value="确定"></td>
</tr>
</table>
</form>
</center>
<%
If Trim(Request("name"))<>"" Then
dim rs,strsql
strsql="Select *From koyee_admin where koyee_admin='" + Request("name") + "'"
Set rs=conn.Execute(strsql)
'查找匹配的记录，如果非空，就表示找到了，则引导至list.asp
If Not rs.Bof and Not rs.Eof Then
'这里用Session传递帐号，通过下文的验证
pw=rs("koyee_pwd")
if pw<>md5(trim(request("password"))) then
Response.Redirect"admin_login.asp"
else
Session("admin")=rs("koyee_admin")
Session("step")=rs("step")
Session("id")=rs("id")
rs.close
set rs=nothing
''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="登陆本系统"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
Response.Redirect"admin_index.asp"
end if
End If
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -