📄 admin.asp
字号:
<!--本邮件列表系统由雷の龙独立制作，版权所有。http://gamewu.126.com-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>DS邮件列表</title>
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
</head>
<body background="INDTEXTB.JPG">
<%If Request.ServerVariables("Request_Method")="GET" then%>
<form method="POST" action="admin.asp">
<p align="center"><span style="letter-spacing: 11"><b>
<font size="4" color="#0000FF">DS邮件列表1.0版</font></b></span></p>
<p align="center"> </p>
<p align="center">管理员：<input type="text" name="gly" size="20" style="border-style: solid; border-width: 1"></p>
<p align="center">密 码：<input type="password" name="mima" size="20" style="border-style: solid; border-width: 1"></p>
<p align="center">
<input type="submit" value="登陆" name="B1" style="border-style: solid; border-width: 1">
<input type="reset" value="取消" name="td" style="border-style: solid; border-width: 1"></p>
</form>
<p align="center"> <!--#include file="foot.htm"--></p>
<%else%>
<!--#include file="conn.asp"-->
<%set rs=server.createobject("adodb.recordset")
set rs=conn.execute("select name,pw from admin")
if request.form("gly")=rs("name") and request.form("mima")=rs("pw") then
session("gly")=request.form("gly")
response.redirect "main.htm"
else
response.write "<script>alert('登陆失败，请检查用户名或者密码是否正确');</script>"
response.write "<script>this.location.href='admin.asp';</script>"
end if
set rs=nothing
conn.close
set conn=nothing
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -