📄 login.asp
字号:
<%
Option Explicit
Response.Buffer = True
dim g_conn,g_connstr,g_db
g_db="../data/20040908.mdb"
set g_conn=server.createobject("adodb.connection")
g_conn.provider="Microsoft.Jet.OLEDB.4.0"
g_conn.open server.mappath(g_db)
sub closedb
g_conn.close
g_conn=nothing
end sub
%>
<!--#include file="../inc/inc.asp"-->
<!--#include file="../inc/md5.asp"-->
<META NAME="save" CONTENT="history">
<style>
body{font-size:12px}
input{font-weight:bold;border:1px solid black;}
</style>
<%
dim frm_name,frm_pwd,frm_adminid
frm_name=checkstr(request.form("frm_name"))
frm_pwd=md5(request.form("frm_pwd"))
frm_adminid=request.form("frm_adminid")
if not g_conn.execute("select f_admin_name,f_admin_pwd from t_admin where f_admin_name='"&frm_name&"' and f_admin_pwd='"&frm_pwd&"'").eof and frm_adminid=session("adminid") then
response.write("登入成功")
session("admin")="廖永南"
response.redirect "left.asp"
response.end
elseif frm_pwd<>"" and frm_name<>"" and frm_adminid<>session("adminid") then
response.write("<script>alert('验证码输入不正确')</script>")
response.write("<script>location='login.asp'</script>")
else
%>
<body>
<div align="center" style="border:1px solid black;width:300px;position:absolute;top:50%;left:50%;margin-left:-150px;margin-top:-150px;"><br>管理员登入
<form method="post" action="login.asp">
用户名：
<input type="text" name="frm_name" size="15" style="font-weight:bold">
<br>
密码：
<input type="password" name="frm_pwd" size="15" style="font-weight:bold"><br>验证码：<input type="text" name="frm_adminid" size="6"> <img src="../code.asp"--><br><br>
<input type="submit" value="登陆"> <input type="reset" value="取消">
</form>
</div>
</body>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -