请各位帮忙看看这个ASP文件怎么改;最好是管理员,这个源码是管理员发的!

[复制链接]
<!--#include file=\"Set.asp\"-->
<!--#include file=\"Inc/Count.asp\"-->
<!--#include file=\"admin/Md5.asp\"-->
<!--#include file=\"admin/funtion.asp\" -->
<%
Dim lc
Set lc=new main
Dim Action,SecurityKey2
Action=Trim(Request(\"Action\"))
If Action=\"\" then Action=\"Login\"
dim UserName,Password,CookieDate
UserName  = Trim(Cl.CheckStr(Request(\"UserName\")))
Password  = Trim(Cl.CheckStr(Request(\"Password\")))
CookieDate  = Cl.ChkClng(Request(\"CookieDate\"))
SecurityKey2 = Trim(Request(\"Key\"))
Select Case Action
Case \"Login\"
   If SecurityKey2=MD5(SecurityKey & username,32) then
    call User_Login()
   Else
    Response.Write \"老大,不要黑我的程序\"
   End If
Case \"Logout\"
  call user_logout()
Case else
  Response.Redirect citypath & \"index.asp\"
End Select
Sub User_Login()
Dim TruePassWord,sValidDays,sUserInfo,comeurl
Dim RsLogin,RsGroup,sAddPoint,i,MsgInfo,sMewMsgN
TruePassWord = Cl.Createpass(16)
ComeUrl   = Trim(Request(\"ComeUrl\"))
if ComeUrl=\"\" then
  ComeUrl=Trim(Request.ServerVariables(\"HTTP_REFERER\"))
  if ComeUrl=\"\" then ComeUrl=\"free/index.asp\"
end if
ComeUrl=LCase(ComeUrl)
if instr(ComeUrl,\"reg\")>0 or instr(ComeUrl,\"User_\")>0 then ComeUrl=\"Index.asp\"
if instr(ComeUrl,\"login\")>0 or instr(ComeUrl,\"reg\")>0 or instr(ComeUrl,\"User_\")>0 then ComeUrl=\"Index.asp\"
\'If Cl.Web_Setting(39)=\"Yes\" Then
   \'if Not Cl.CodeIsTrue(Request(\"CodeStr\"),\"GetCode\") then Call Cl.OutMsg(\"验证码校验失败。\",\"Login.Asp?ComeUrl=\" & ComeUrl)
\'end if
\'if UserName=\"\" or Password=\"\" then
  \'Call Cl.OutMsg(\"用户名或密码或验证码不能为空!\",\"Login.Asp?ComeUrl=\" & ComeUrl)
\'end if
    SQL=\"Select \" & Db.UserID & \",\" & Db.UserName & \",\" & Db.UserPassWord & \",\"&Db.UserReName&\",\" & Db.UserEmail & \",\" & Db.User** & \",\" & Db.Use**ce & \",\" & Db.Use**ceWidth & \",\" & Db.Use**ceHeight & \",\" & Db.UserIM & \",\" & Db.UserJoinDate & \",\" & Db.UserLastLogin & \",\" & Db.UserLogins & \",\" & Db.UserQuestion & \",\" & Db.UserAnswer & \",\" & Db.UserLastIP & \",\" & Db.UserDataNum & \",\" & Db.UserLevel & \",\" & Db.UserPoint & \",\" & Db.UserMoney & \",\" & Db.ChargeType & \",\" & Db.BeginDate & \",\" & Db.ValidNum & \",\" & Db.UserTPassWord & \",\" & Db.WaitReceive & \",\" & Db.Received & \",\" & Db.UserMsg & \" From \" & Db.UserTable & \" where \" & Db.UserLock & \"=0 and \" & Db.UserName & \"=\'\" & UserName & \"\'\"
Set RsLogin=Cl.Execute_U(SQL)
if RsLogin.bof and RsLogin.eof then
  lc.returnmsg\"<p>主站登录失败,您可能还没有激活主站帐号!</p>\",\"div\",\"login_msg\",\"\"
  RsLogin.close : set RsLogin=Nothing
  Response.Cookies(\"cl_actived\")=\"False\"
  Response.End
  Exit Sub
End if
\'if Password<>RsLogin(2) then
  \'RsLogin.close : set RsLogin=Nothing
  \'Call Cl.OutMsg(\"用户名或密码错误!!!\",\"Login.Asp?ComeUrl=\" & ComeUrl)
\'End if
if RsLogin(17)=6 or RsLogin(17)=7 then
  RsLogin.close : set RsLogin=Nothing
  Response.Cookies(\"cl_actived\")=\"False\"
  lc.returnmsg\"<p>你激活了主站的账号,但还没有通过管理员验证,暂时不能使用主站模块的功能。</p>\",\"div\",\"login_msg\",\"\"
  Response.End
  Exit Sub
End if
Set RsGroup=Cl.Execute(\"Select GroupName,GroupImg,LoginPoint,Purview,Purview_Other,arrClassView,arrClassInput,arrClassCheck,arrClassMaster From UserGroup Where ID=\"&RsLogin(17)&\"\")
if RsGroup.Bof and RsGroup.Eof then
  lc.returnmsg\"<p>对不起,数据库中找不到您的用户组,请联系管理员解决。你的用户组ID为\"&RsLogin(17)&\"</p>\",\"div\",\"login_msg\",\"\"
  \'ErrMsg=\"对不起,数据库中找不到您的用户组,请联系管理员解决。你的用户组ID为(\"&RsLogin(17)&\")!\"
  RsLogin.close : Set RsLogin=Nothing
  RsGroup.Close : Set RsGroup = Nothing
  Response.End
  Exit Sub
End if
sMewMsgN = Cl.newincept(UserName)
If sMewMsgN>0 Then
  MsgInfo =sMewMsgN & \"||\" & Cl.inceptid(1,UserName) & \"||\" & Cl.inceptid(2,UserName)
Else
  MsgInfo = \"0||0||null\"
End If
Cl.Execute_U(\"Update \" & Db.UserTable & \" Set \" & Db.UserMsg & \"=\'\"&Cl.CheckStr(MsgInfo)&\"\' Where \" & Db.UserID & \"=\"&Clng(RsLogin(0))&\"\")
if DateDiff(\"D\",RsLogin(11),Now)>0 then
  \'添加积分
  Cl.Execute_U(\"Update \" & Db.UserTable & \" Set \" & Db.UserLastIP & \"=\'\" & Cl.UserTrueIP & \"\',\" & Db.UserLastLogin & \"=\'\" & Now & \"\',\" & Db.UserLogins & \"=\" & Db.UserLogins & \"+1,\" & Db.UserPoint & \"=\" & Db.UserPoint & \"+\"&RsGroup(2)&\",\"&Db.UserTPassWord&\"=\'\"&TruePassWord&\"\' Where \"&Db.UserID&\"=\" & RsLogin(0) & \"\")
else
  Cl.Execute_U(\"Update \" & Db.UserTable & \" Set \" & Db.UserLastIP & \"=\'\" & Cl.UserTrueIP & \"\',\" & Db.UserLastLogin & \"=\'\" & Now & \"\',\" & Db.UserLogins & \"=\" & Db.UserLogins & \"+1,\"&Db.UserTPassWord&\"=\'\"&TruePassWord&\"\' Where \"&Db.UserID&\"=\" & RsLogin(0) & \"\")
end if
if Cl.UserID=0 then
  Set Count = New Cls_Count
  Count.DelOnline 0, Cl.UserID, Session(Cl.CacheName & \"UserID\")(0)
  Set Count = Nothing
end if
\'Response.Cookies(Cl.Web_Cookies).path   = InstallDir
Response.Cookies(Cl.Web_Cookies)(\"UserID\")  = RsLogin(0)
Response.Cookies(Cl.Web_Cookies)(\"UserName\") = UserName
Response.Cookies(Cl.Web_Cookies)(\"Password\") = PassWord
Response.Cookies(Cl.Web_Cookies)(\"TruePassWord\")= TruePassWord
Response.Cookies(Cl.Web_Cookies)(\"UserLevel\") = RsLogin(17)
Response.Cookies(\"cl_actived\")=\"True\"
Select Case CookieDate
Case 1 : Response.Cookies(Cl.Web_Cookies).Expires=Date+1
Case 2 : Response.Cookies(Cl.Web_Cookies).Expires=Date+31
Case 3 : Response.Cookies(Cl.Web_Cookies).Expires=Date+365
End Select
sValidDays=RsLogin(22)-DateDiff(\"D\",RsLogin(21),now())
if sValidDays<0 then sValidDays=0
sUserInfo = \"ClCMS@@@\"& Now & \"@@@\" & Now & \"@@@\" & Cl.ScriptName
For i=0 to 26
sUserInfo = sUserInfo & \"@@@\" & RsLogin(i)
Next
For i=0 to 8
sUserInfo = sUserInfo & \"@@@\" & RsGroup(i)
Next
sUserInfo = sUserInfo & \"@@@\" & sValidDays & \"@@@ClCMS\"
Cl.User_Info=Split(sUserInfo,\"@@@\")
Session(Cl.CacheName & \"UserID\") = Cl.User_Info
RsLogin.Close : Set RsLogin = Nothing
RsGroup.Close : Set RsGroup = Nothing
lc.returnmsg\"<p>主站登陆成功....</p>\",\"div\",\"login_msg\",\"\"
set lc=nothing
End Sub
Sub User_logout()
if Cl.UserID>0 then
Set Count = New Cls_Count
Count.DelOnline 1, Cl.UserID, 0
Set Count = Nothing
end if
Cl.EmptyCookies
Response.Cookies(\"cl_actived\") = \"\"
End sub
%>
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏
收藏0
本帖违规,我要举报
举报本帖
免责声明:
本站资源均来源于网络或是会员上传,版权和著作权归原作者所有,如有不愿意被转载,请点击这里通知我们第一时间删除!
所有资源仅供下载后在本地学习研究参考使用!您必须在下载资源后的24个小时之内,从您的电脑中彻底删除。
所有资源不能用于任何商业和非法目的,否则一切后果请用户自负。如您需要商用,请支持和购买正版,本站不对您的使用负任何责任!
会员所发布的信息中如有涉及到具体的第三方个人(单位/公司)隐私、商业秘密等,侵犯其权益,对其构成不良影响的,本站有权不做通知直接删除!

精彩评论7

跳转到指定楼层
#沙发
pq521 发表于 2008-12-18 22:51:26 | 只看该作者
帮你 顶上啊  哈哈
#板凳
weishanqun 发表于 2008-12-19 00:38:43 | 只看该作者
你自己看下自己的问题,你发段代码而已,要改成什么,都没有个要求,汗一个
#地板
mhj159 发表于 2009-2-16 13:27:11 | 只看该作者
都没有个要求,汗一个
#地窖
黑马王子 发表于 2009-11-10 11:46:02 | 只看该作者
不知所云!~
6#
wwwsdcn 发表于 2010-1-25 16:24:34 | 只看该作者
摸索着修改吧,你都不知道要改什么,朝那个方向修改,估计管理员也一头雾水
7#
菜好吃 发表于 2010-4-27 00:01:10 | 只看该作者
路过,了解一下。路过,了解一下。
8#
菜好吃 发表于 2010-4-27 00:01:26 | 只看该作者
路过,了解一下。
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

关注0

粉丝3

帖子0

发布主题
15年专注源码提供
侵权投诉处理

点击这里投诉侵权

周一至周日10:00-21:00

反馈建议/违规信息举报

webmaster@souho.net 在线客服咨询

扫描二维码关注我们

严禁任何人以任何形式在本站发表与我国法律相抵触的言论!本站资源仅供本地学习研究,禁止用于任何违法犯罪活动!

搜虎源码所有资源来自网络收集整理,版权和著作权归原作者所有,仅供本地研究学习。若有侵权,请联系管理员及时删除!

所有资源严禁用于任何商业目的,否则一切后果请用户自负。如您需要商用,请支持和购买正版,本站不对您的使用负任何责任!

如会员所发布的信息中有涉及到具体的第三方个人(单位/公司)隐私、商业秘密等,侵犯其权益,对其构成不良影响的,本站有权不做通知将该信息予以直接删除处理!

网站备案号: 鄂ICP备17009394号-2