<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月26日 ' 版权所有: 本程序由七禧网络开发,未经同意请勿用于商业用途 '************************************************************************************************** %> 后台登陆 <% CmsDj_DO=Request.ServerVariables("URL") CmsDj_DO=LCase(CmsDj_DO) 'If InStr(CmsDj_DO,"/admin/")>0 OR InStr(CmsDj_DO,"/Admin/")>0 Then 'Response.Write"" 'End IF %> <%Sub LoginMain()%>
管理登陆
用户名:
密码:
<%if CD_WebCodeA="0" then%>
认证码:
<%end if%>
<%if CD_WebCodeA="1" then%>
为了使程序有更大的兼容性,后台默认关闭了认证码,为了你的登录更安全,请修改 Config.asp 文件。
<%end if%>
<%End Sub%> <% Dim BLLAdmin,Permit,arr1,arr2,action,Rs,CD_IP Dim CD_AdminUserName,CD_AdminPassWord,CD_ID,CD_LoginIP,CD_LoginNum,CD_LastLogin,CD_Permission,CD_IsLock,Codes action=SafeRequest("action","get") IF action="log" Then CD_AdminUserName=SafeRequest("CD_AdminUserName","post") CD_AdminPassWord=SafeRequest("CD_AdminPassWord","post") CD_CheckCode=SafeRequest("CD_CheckCode","post") IF CD_AdminUserName="" Then Call AdminAlert("对不起,用户名不能为空!","Admin_Login.asp",1) Response.End End IF IF CD_AdminPassWord="" Then Call AdminAlert("对不起,密码不能为空!","Admin_Login.asp",1) Response.End End IF If CD_WebCodeA="0" Then IF CD_CheckCode<>CD_WebCodeB Then Call AdminAlert("对不起,认证码错误!","Admin_Login.asp",1) Response.End End IF End IF CD_AdminPassWord=Md5(CD_AdminPassWord) Set BLLAdmin= New CmsDj_Com_Admin Set Rs=BLLAdmin.GetRs("",0,"CD_AdminUserName='"&CD_AdminUserName&"' And CD_AdminPassWord='"&CD_AdminPassWord&"'") Permit=False IF Not Rs.Bof And Not Rs.Eof Then CD_ID=Rs("CD_ID") CD_LoginIP=Request.ServerVariables("REMOTE_ADDR") CD_LoginNum=Rs("CD_LoginNum")+1 CD_LastLogin=Now() CD_Permission=Rs("CD_Permission") Permit=True CD_IsLock=Rs("CD_IsLock") '写cookies CD_IP=Request.ServerVariables("REMOTE_ADDR") Response.Cookies("CmsDJ_AdminCooikes")("CD_AdminID")=CD_ID Response.Cookies("CmsDJ_AdminCooikes")("CD_AdminUserName")=CD_AdminUserName Response.Cookies("CmsDJ_AdminCooikes")("CD_AdminPassWord")=CD_AdminPassWord Response.Cookies("CmsDJ_AdminCooikes")("CD_Permission")=CD_Permission Response.Cookies("CmsDJ_AdminCooikes")("CD_IP")=CD_IP Response.Cookies("CmsDJ_AdminCooikes")("CD_Login")=Md5(CD_ID&CD_AdminUserName&CD_AdminPassWord&CD_Permission&CD_IP) Call AdminAlert("成功登录,正在转向后台管理主页!","Admin_Index.asp",0) Else Call AdminAlert("对不起,用户名或密码错误!","Admin_Login.asp",1) Response.End End IF Rs.Close IF CD_IsLock=1 Then Call AdminAlert("此帐号已被锁定,请与管理员联系!","Admin_Login.asp",1) Response.End End IF '更新数据库记录 IF Permit Then arr1=Array("CD_LoginIP","CD_LoginNum","CD_LastLogin") arr2=Array(CD_LoginIP,CD_LoginNum,CD_LastLogin) Call BLLAdmin.update(arr1,arr2,"CD_ID="&CD_ID) End IF IF isObject(BLLAdmin) Then Set BLLAdmin = Nothing ElseIF action="logout" Then '清除cooikes Response.Cookies("CmsDJ_AdminCooikes")("CD_AdminID")="" Response.Cookies("CmsDJ_AdminCooikes")("CD_AdminUserName")="" Response.Cookies("CmsDJ_AdminCooikes")("CD_AdminPassWord")="" Response.Cookies("CmsDJ_AdminCooikes")("CD_Permission")="" Response.Cookies("CmsDJ_AdminCooikes")("CD_IP")="" Response.Cookies("CmsDJ_AdminCooikes")("CD_Login")="" Echo("") Else Call LoginMain() End IF %>