📄 chkadm.asp
字号:
<%
'################################################################
'# 易成 ADisease 1.0 广告发布管理系统
'#
'# 版权所有: 易成在线(isease.com)
'#
'# 程序制作: 庞磊(isease@isease.com)
'#
'# 主页地址: http://www.isease.com
'#
'# 开发环境:Win2000 SERVER+IIS5+ACCESS2000 IE5.0
'################################################################
'#【版权声明】
'# 1、 本软体为共享软体(shareware)提供个人网站免费使用,请勿非法
'# 修改、转载、散播。
'#
'# 2、 程序中版权声明请勿删除,在您使用过程中,它不会向浏览广告
'# 的第三方提示任何与易成相关的信息,更不影响您的使用。
'#
'# 3、 本软体为免费软件,用户自由选择是否使用,在使用中出现任何
'# 问题而造成的损失本站不负任何责任。
'#
'# 4、 本软体不允许在没有事先通知的情况下用于商业用途,假如您需
'# 要用于商业用途,请和我们联系。
'#
'# 5、 如果违反移上条款,易成在线isease.com对此保留一切法律追究
'# 的权利。
'#
'################################################################
'#
'#请您尊重我们的劳动和版权,不要删除以上的版权声明部分,谢谢合作,
'#
'#在您使用过程中,它不会向浏览广告的第三方提示任何与易成相关的信息,
'#
'#更不影响您的使用。
'#
'# 如有任何问题请到我们的论坛告诉我们。
'#
'# 如果可能,请在您的网站做上我们的链接,希望能给予合作。谢谢!
'################################################################
%>
<!--#include file="config.asp"-->
<%
adsconn.open adsdata
dim adssql,adsrs,admname,admpass
admname=trim(request("username"))
admpass=trim(request("password"))
set adsrs=server.createobject("adodb.recordset")
asql="select * from administ where admin='"&admname&"'"
adsrs.open asql,adsconn,1,1
if adsrs.bof and adsrs.eof then
%>
无此管理员!
<%
else
if admpass=adsrs("passwd") then
session("masterlogin")="superadvertadmin"
session("admname")=adsrs("admin")
Response.Redirect "main.asp"
adsrs.close
set adsrs=nothing
adsconn.close
set adsconn=nothing
else
%>
密码错误!
<%
end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -