📄 admin.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/info.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/md5.asp"-->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: byhucn@126.com,lzz9812@163.com
'=========================================================
'
'FileName: admin.asp
'Version:2.0
'UpdateTime: 2004-10-7 16:29:27
'Script Written by www.aspease.com
'=========================================================
response.write("<html><head><link rel='stylesheet' href='admin.css'></head><body>")
response.write(" <br><br><br>")
if request("action")="chk" then
username=request("username")
password=md5(Request("password"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username="&sqlstr(username)&" and password="&sqlstr(password)&""
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
session("aspeaseadmin")=rs("username")
session("aspeaseflag")=rs("flag")
foundmaster=true
Response.Redirect "admin_manage.asp"
else
call Error()
end if
rs.close
set rs=nothing
admfooter
else
call loginform
end if
sub Error()
response.Write("<table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>")
response.Write(" <tr >")
response.Write(" <td class='title' colspan='2' height='15'>")
response.Write(" <div align='center'>确认身份失败!</div>")
response.Write(" </td>")
response.Write(" </tr>")
response.Write(" <tr>")
response.Write(" <td class='tdbg' colspan='2' height='23'>")
response.Write(" <div align='center'><br><br> 用户名或密码错误!!! <br><br> <a href='javascript:onclick=history.go(-1)'>返回</a> <br><br></div>")
response.Write(" </td>")
response.Write(" </tr>")
response.Write("</table>")
end sub
sub loginform
response.Write("<div align=""center"">")
response.Write(" <p> </p>")
response.Write("<table class=""border"" width=""300"" border=""0"" cellpadding=""4"" cellspacing=""0"" >")
response.Write(" <form method=""post"" action=""?action=chk"">")
response.Write(" <tr class=""title""> ")
response.Write(" <td colspan=""2""> ")
response.Write(" <div align=""center"">管理员登录</div>")
response.Write(" </td>")
response.Write(" </tr>")
response.Write(" <tr> ")
response.Write(" <td class=""tdbg"" colspan=""2""> <br>")
response.Write(" <br>")
response.Write(" <table width=""250"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
response.Write(" <tr> ")
response.Write(" <td>用户名称：")
response.Write(" <input class=""smallinput"" type=""text"" name=""Username"" size=""23"" value="""">")
response.Write(" <br>")
response.Write(" 用户密码：")
response.Write(" <input class=""smallinput"" type=""password"" name=""Password"" size=""23"" value="""">")
response.Write(" <br>")
response.Write(" <br>")
response.Write(" <br>")
response.Write(" </td>")
response.Write(" </tr>")
response.Write(" <tr> ")
response.Write(" <td> ")
response.Write(" <div align=""center""> ")
response.Write(" <input class=""buttonface"" type=""submit"" name=""Submit"" value=""确认"">")
response.Write(" <input class=""buttonface"" type=""reset"" name=""Submit2"" value=""复位"">")
response.Write(" <br>")
response.Write(" <br>")
response.Write(" </div>")
response.Write(" </td>")
response.Write(" </tr>")
response.Write(" </table>")
response.Write(" </td>")
response.Write(" </tr></form>")
response.Write(" </table>")
response.Write("</div>")
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: byhucn@126.com,lzz9812@163.com
'=========================================================
'
'FileName: admin.asp
'Version:2.0
'UpdateTime: 2004-10-7 16:29:27
'Script Written by www.aspease.com
'=========================================================%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -