ot;UserID")(0)="Dvbbs" Then ''''修正防刷新的问题,轻飘飘 If Cint(Session(CacheName & "UserID")(19)) <> Cint(Split(MyUserInfo,"|||")(15)) Then FoundMyGroupID = Cint(Session(CacheName & "UserID")(19)) If FoundMyGroupID > 0 Then MyUserInfo = "Dvbbs|||"& Session(CacheName & "UserID")(1) & "|||"& Session(CacheName & "UserID")(2) &"|||"& BoardID &"|||"& MyUserInfo &"|||"&FoundUserPermission_All()&"|||"&Split(MyUserInfo,"|||")(15)&"|||"& Session(CacheName & "UserID")(Ubound(Session(CacheName & "UserID"))-1) &"|||Dvbbs" Else MyUserInfo = "Dvbbs|||"& Session(CacheName & "UserID")(1) & "|||"& Session(CacheName & "UserID")(2) &"|||"& BoardID &"|||"& MyUserInfo &"|||"&FoundUserPermission_All()&"|||0|||"& Session(CacheName & "UserID")(Ubound(Session(CacheName & "UserID"))-1) &"|||Dvbbs" End If Else MyUserInfo = "Dvbbs|||"& Now & "|||" & DateAdd("s",-3600,Now()) &"|||"& BoardID &"|||"& MyUserInfo &"|||"&FoundUserPermission_All()&"|||0||||||Dvbbs" End If Else MyUserInfo = "Dvbbs|||"& Now & "|||" & DateAdd("s",-3600,Now()) &"|||"& BoardID &"|||"& MyUserInfo &"|||"&FoundUserPermission_All()&"|||0||||||Dvbbs" End If Rs.Close:Set Rs = Nothing MyUserInfo = Split(MyUserInfo,"|||") If FoundMyGroupID > 0 Then MyUserInfo(19) = FoundMyGroupID If Trim(MyUserInfo(35)) = Memberword And Trim(MyUserInfo(5)) =Membername Then Session(CacheName & "UserID") = MyUserInfo Memberword = MyUserInfo(35) GetCacheUserInfo() Else If IsArray(Session(CacheName & "UserID")) Then If Session(CacheName & "UserID")(0)="Dvbbs" Then If Trim(Session(CacheName & "UserID")(4))=Trim(MyUserInfo(4)) And Trim(Session(CacheName & "UserID")(5))=Trim(MyUserInfo(5)) And Trim(Session(CacheName & "UserID")(6))=Trim(MyUserInfo(6)) Then If Request.ServerVariables("QUERY_STRING")<>"" Then Session("LoadCache")=ScriptName&"?"&Request.ServerVariables("QUERY_STRING") Else Session("LoadCache")=ScriptName End If Response.Redirect "newpass.asp" End If Else UserID = 0 EmptyCookies LetGuestSession() End If Else UserID = 0 EmptyCookies LetGuestSession() End If End If End If End Sub ''''用户登录成功后，采用本函数读取用户数组并判断一些常用信息 Public Sub GetCacheUserInfo() MyUserInfo = Session(CacheName & "UserID") UserInfoCount = Ubound(Session(CacheName & "UserID")) UserID = Clng(MyUserInfo(4)) MemberName = MyUserInfo(5) Lastlogin = MyUserInfo(15) If Not IsDate(LastLogin) Then LastLogin = Now() UserGroupID = Cint(MyUserInfo(19)) If Trim(MyUserInfo(36))="" Then Execute("Update [Dv_User] Set UserToday=''''0|0|0|0|0'''' Where UserID = " & UserID) MyUserInfo(36) = "0|0|0|0|0" UserToday = Split(MyUserInfo(36),"|") Else UserToday = Split(MyUserInfo(36),"|") If Ubound(UserToday) <> 4 Then Execute("Update [Dv_User] Set UserToday=''''0|0|0|0|0'''' Where UserID = " & UserID) MyUserInfo(36) = "0|0|0|0|0" UserToday = Split(MyUserInfo(36),"|") End If End If ''''判断是否VIP组成员 If Not IsNull(MyUserInfo(41)) or MyUserInfo(41)<>"" Then If IsDate(MyUserInfo(41)) Then If DateDiff("d",Now(),MyUserInfo(41))>0 Then VipGroupUser = True Else Dim tRs ''''将已过期的VIP用户移回注册组并清空有效时间 If UserGroupID>8 Then Set tRs=Execute("Select Top 1 * From Dv_UserGroups Where ParentGID=3 And MinArticle<="&MyUserInfo(8)&" Order By MinArticle Desc") If not tRs.Eof Then Execute("Update Dv_User Set UserClass=''''"&tRs("UserTitle")&"'''',TitlePic=''''"&tRs("GroupPic")&"'''',UserGroupID="&tRs("UserGroupID")&",Vip_StarTime=null,Vip_EndTime=null Where UserID="&UserID) End If Set tRs=Nothing Else Execute("Update Dv_User Set Vip_StarTime=null,Vip_EndTime=null Where UserID="&UserID) End If MyUserInfo(40) = "" MyUserInfo(41) = "" Session(CacheName & "UserID") = MyUserInfo End If End If End If Select Case UserGroupID Case 8 Vipuser = True Case 3 Boardmaster = True Case 2 Superboardmaster = True Case 1 Master = True End Select If MyUserInfo(31) = "1" Then FoundIsChallenge = True If DateDiff("d",LastLogin,Now())<>0 Then Execute("Update [Dv_User] Set UserToday=''''0|0|0|0|0'''',LastLogin = " & SqlNowString & " Where UserID = " & UserID) MyUserInfo(36) = "0|0|0|0|0" LastLogin = Now() End If If Userhidden = 2 and DateDiff("s",Lastlogin,Now())>Clng(Forum_Setting(8))*60 Then Execute("Update [Dv_User] Set UserLastIP = ''''" & UserTrueIP & "'''',LastLogin = " & SqlNowString & " Where UserID = " & UserID) Lastlogin = Now() End If sendmsgnum=0:sendmsgid=0:sendmsguser="" If MyUserInfo(30)<>"" Then Dim Usermsg Usermsg=Split(MyUserInfo(30),"||") If Ubound(Usermsg)=2 Then sendmsgnum=Usermsg(0) sendmsgid=Usermsg(1) sendmsguser=Usermsg(2) End If End If If IsNull(MyUserInfo(39)) Then MyUserInfo(39)="" Else MyUserInfo(39) = Replace(Trim(MyUserInfo(39))&"",Chr(13),"") End If ''''跟踪用户处理 If MyUserInfo(39)<>"" Then Dim ToolsFollowUserID,i,Rs,Tools_inceptid,Tools_newincept,Tools_msginfo ToolsFollowUserID = Split(MyUserInfo(39),",") For i=0 To Ubound(ToolsFollowUserID) If Len(ToolsFollowUserID(i))>0 and Len(ToolsFollowUserID(i))<50 and ToolsFollowUserID(i)<>"" Then ToolsFollowUserID(i) = CheckStr(ToolsFollowUserID(i)) Execute("Insert into Dv_Message (incept,sender,title,content,sendtime,flag,issend) values (''''"& ToolsFollowUserID(i)&"'''',''''系统消息'''',''''您跟踪的用户"&Dvbbs.MemberName&"已登录'''',''''您使用了论坛道具“狗仔队
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
