<% '****************************************************************************************** ' Software name: xRedrobe(小红袍) Content Management System ' Version:1.0 ' Web: ' Author: 六点半 ' Copyright (C) 2005-2009 小红袍官方 版权所有 '****************************************************************************************** dim action action = getForm("action", "get") Select case action case "login" : login case "check" : checkLogin case "logout" : clearPower case else : main End Select terminateAllObjects Sub getCurrVersion() on error resume next dim xmlobj:SET xmlobj=mainClassobj.createObject("MainClass.Xml"):xmlobj.load "imgs/version.xml","xmlfile" Dim CurrVersion:CurrVersion = trim(xmlobj.getNodeValue("maxcms/version", "")) echo ""&vbcrlf&""&vbcrlf&"" SET xmlobj=Nothing End Sub Sub ViewLogin(byval errStr) %> 智航會計客戶管理系統-免费啪视频观试看视频感受嘻嘻国产精品一区二区一本大道久久a久久精二佰

Financial - <% echo(siteName)%>

欧美与黑人午夜性猛交久久久

<% if errStr<>"" then dim login_message echo ("

"&errStr&"

") end if %> 网站地图、sitemap <% End Sub Sub checkLogin dim username,pwd,bRem,ip,errStr,rsObj,random,errFlag,agent agent=getAgent : errFlag = false : errStr="" if isOutSubmit then errFlag = true : errStr = errStr&"非法外部提交被禁止！
" username = replaceStr(getForm("input_name","post"),"'","") : pwd = replaceStr(getForm("input_pwd","post"),"'","") : ip = getIp : bRem=getForm("input_rem","post")="true" if isNul(username) or isNul(pwd) then errFlag = true : errStr = errStr&"用戶名或密碼为空," set rsObj = conn.db("select * from {pre}manager where m_username='"&username&"'","records1") if rsObj.eof then errFlag = true : errStr = errStr&"用戶名或密碼不正确！" else if clng(rsObj("m_state")) = 0 then errFlag = true : errStr = errStr&"账号已被管理員锁定！" if len(rsObj("m_pwd"))>25 then pwd=md5(pwd,32) else pwd=pwd if trim(rsObj("m_pwd")) <> pwd then errFlag = true : errStr = errStr&"用戶名或密碼不正确！" if not errFlag then randomize random = md5(rnd*99999999,32) conn.db "update {pre}manager set m_logintime='"&now()&"',m_loginip='"&ip&"',m_random='"&random&"' where m_username='"&username&"'","execute" if bRem then wCookieInTime "m_username",rsObj("m_username"),"d",365 wCookieInTime "m_logintime",rsObj("m_logintime"),"d",365 wCookieInTime "m_id",rsObj("m_id"),"d",365 wCookieInTime "m_level",rsObj("m_level"),"d",365 wCookieInTime "m_department",rsObj("m_department"),"d",365 wCookieInTime "check"&rCookie("m_username"),md5(agent&ip&random,32),"d",365 else wCookie "m_username",rsObj("m_username") wCookie "m_logintime",rsObj("m_logintime") wCookie "m_id",rsObj("m_id") wCookie "m_level",rsObj("m_level") wCookie "m_department",rsObj("m_department") wCookie "check"&rCookie("m_username"),md5(agent&ip&random,32) end if if clng(rsObj("m_level"))=0 then if selfManageDir="admin/" then alertMsg "您的后台目录名为admin国产乱人偷精品人妻A片，具有很大安全隐患AA片免费观看视频中国成人无码A片一区二区三区免费看98国产精品人妻无码免费，请尽快更改后台目录名以保证安全!\n\n建议：目录名设为6位以上、尽量复杂一些！","" end if session("loginflag")=rCookie("m_username") echo "" end if end if ViewLogin errStr End Sub Sub login if rCookie("m_username")<>"" then die "" end if ViewLogin "" End Sub Sub main checkPower %> 智航會計客戶管理系統-免费啪视频观试看视频感受嘻嘻国产精品一区二区一本大道久久a久久精二佰
网站地图、sitemap <% End Sub %>