chkadm.asp

某自治区政府的网站源代码

<%
'################################################################
'#         易成 ADisease 1.0 广告发布管理系统
'#
'#      版权所有: 易成在线(isease.com)
'#
'#      程序制作: 庞磊([e-mail])
'#
'#      主页地址: 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
%>