D > UBound(Split(TempStyle(1),"|||"))-1 Then SkinID = 0 Forum_CSS = Split(TempStyle(1),"|||")(SkinID) ''''风格内容 Forum_PicUrl = Split(TempStyle(2),"|||")(SkinID) ''''图片路径 CssID = SkinID SkinID = Split(TempStyle(3),"|||")(SkinID) ''''采用模板ID Name = "Main_Style"&SkinID Main_Style = Replace(value,"{$PicUrl}",Forum_PicUrl) ''''风格图片路径替换 Name="StyleName"&SkinID StyleName=value If Not (Instr(ScriptName,"index")>0 Or Page_Admin) Then Name = "Style_Pic"&SkinID Style_Pic = Replace(value,"{$PicUrl}",Forum_PicUrl) ''''风格图片路径替换 Style_Pic = Split(Style_Pic,"@@@") Forum_UserFace = Style_Pic(0) Forum_PostFace = Style_Pic(1) Forum_Emot = Style_Pic(2) End If If Page_Fields<>"" Then Name="page_"&Page_Fields&SkinID Template.value = value End If Main_Style = Split(Main_Style,"@@@") mainhtml = Split(Main_Style(0),"|||") lanstr = Split(Main_Style(1),"|||") mainpic = Split(Main_Style(2),"|||") mainsetting = Split(mainhtml(0),"||") Forum_CSS = Replace(Forum_CSS,"{$width}",mainsetting(0)) Forum_CSS = Replace(Forum_CSS,"{$PicUrl}",Forum_PicUrl) End Sub Rem 判断发言是否来自外部 Public Function ChkPost() Dim server_v1,server_v2 Chkpost=False server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) If Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=True End Function
''''更新总设置表部分缓存数组，入口：更新内容、数组位置 Public Sub ReloadSetupCache(MyValue,N) CacheData(N,0) = MyValue Name="setup" value=CacheData End Sub ''''更新用户资料缓存(缓存用户名,是否需要添加)[0=不添加,只作清理,1=需要添加] Public Sub NeedUpdateList(username,act) Dim Tmpstr,TmpUsername Name="NeedToUpdate" If ObjIsEmpty() Then Value="" Tmpstr=Value TmpUsername=","&username&"," Tmpstr=Replace(Tmpstr,TmpUsername,",") Tmpstr=Replace(Tmpstr,",,",",") IF act=1 Then If IsONline(username,0) Then If Tmpstr="" Then Tmpstr=TmpUsername Else Tmpstr=Tmpstr&TmpUsername End If End If End If Tmpstr=Replace(Tmpstr,",,",",") Value=Tmpstr End Sub ''''写入客人session Public Sub LetGuestSession() Dim StatUserID,UserSessionID StatUserID = checkStr(Trim(Request.Cookies(Forum_sn)("StatUserID"))) If IsNumeric(StatUserID) = 0 or StatUserID = "" Then StatUserID = Replace(UserTrueIP,".","") UserSessionID = Replace(Startime,".","") If IsNumeric(StatUserID) = 0 or StatUserID = "" Then StatUserID = 0 StatUserID = Ccur(StatUserID) + Ccur(UserSessionID) End If StatUserID = Ccur(StatUserID) Response.Cookies(Forum_sn).Expires=DateAdd("s",3600,Now()) Response.Cookies(Forum_sn).path=cookiepath Response.Cookies(Forum_sn)("StatUserID") = StatUserID ''''客人=SessionID+活动时间+发帖时间+版面ID StatUserID = StatUserID & "_" & Now & "_" & Now & "_" & BoardID Session(CacheName & "UserID") = Split(StatUserID,"_") End Sub ''''根据页面来判断是否需要执行TrueCheckUserLogin Public Function NeedChecklongin() NeedChecklongin=True If UserID>0 Then If InStr(ScriptName,"admin_")>0 Then Exit Function Dim pagelist pagelist=",post.asp,usermanager.asp,mymodify.asp,modifypsw.asp,modifyadd.asp,usersms.asp," pagelist=pagelist & "friendlist.asp,favlist.asp,myfile.asp,friendlist.asp,recycle.asp," pagelist=pagelist & "fileshow.asp,bbseven.asp,dispuser.asp,savepost.asp," If InStr(pagelist,","&ScriptName&",")>0 Then Exit Function End If NeedChecklongin=False End Function ''''验证用户登陆 Public Sub CheckUserLogin() If Not IsArray(Session(CacheName & "UserID")) Then If UserID > 0 Then TrueCheckUserLogin Else Call LetGuestSession() End If Else If UserID >0 Then Dim NeedToUpdate,toupdate toupdate=False Name="NeedToUpdate" If Not ObjIsEmpty() Then NeedToUpdate=","&Value&"," If InStr(NeedToUpdate,","&MemberName&",")>0 Then Call NeedUpdateList(MemberName,0) toupdate=True End If End If
If NeedChecklongin Or (UserID >0 And Not Ubound(Session(CacheName & "UserID"))=45) Or toupdate Then TrueCheckUserLogin End If End If If Session(CacheName & "UserID")(0) = "Dvbbs" Then GetCacheUserInfo Else MyUserInfo = Session(CacheName & "UserID") UserGroupID = 7 Lastlogin = Now() End If GetGroupSetting End Sub ''''系统分配随机密码 Public Function Createpass() Dim Ran,i,LengthNum LengthNum=16 Createpass="" For i=1 To LengthNum Randomize Ran = CInt(Rnd * 2) Randomize If Ran = 0 Then Ran = CInt(Rnd * 25) + 97 Createpass =Createpass& UCase(Chr(Ran)) ElseIf Ran = 1 Then Ran = CInt(Rnd * 9) Createpass = Createpass & Ran ElseIf Ran = 2 Then Ran = CInt(Rnd * 25) + 97 Createpass =Createpass& Chr(Ran) End If Next End Function ''''更新用户验证密码 Public Sub NewPassword() If UserID=0 Then Exit Sub Response.Write "<iframe width=""0"" height=""0"" src=""newpass.asp"" name=""Dvnewpass""></iframe>" End Sub Public Sub TrueCheckUserLogin() ''''Session(CacheName & "UserID")用户资料=0dvbbs+1刷新时间+2发帖时间+3所在版面ID+4用户ID+5用户名+6用户密码+7用户邮箱+8用户文章数+9用户主题数+10用户性别+11用户头像+12用户头像宽+13用户头像高+14用户注册时间+15用户最后登陆时间+16用户登陆次数+17用户状态+18用户等级+19用户组ID+20用户组名+21用户金钱+22用户积分UserEp+23用户魅力UserCp+24用户威望+25用户生日+26最后登陆IP+27用户被删除数+28用户精华数+29用户隐身状态+30用户短信情况+31用户阳光会员+32用户手机+33用户组图标+34用户头衔+35验证密码+36用户今日信息+37用户金币+38用户点券+ 39跟踪用户ID+40VIP登记时间+41VIP截止时间+42是否存在全局自定义权限IsUserPermissionAll+43是否有多属性用户组IsUserPermissionOnly+44临时数据+45Dvbbs Dim Rs,SQL,FoundMyGroupID FoundMyGroupID = 0 Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime" Sql=Sql+" From [Dv_User] Where UserID = " & UserID Set Rs = Execute(Sql) If Rs.Eof And Rs.Bof Then Rs.Close:Set Rs = Nothing UserID = 0 EmptyCookies LetGuestSession() Else MyUserInfo=Rs.GetString(,1, "|||","","") If IsArray(Session(CacheName & "UserID")) Then If Session(CacheName & &qu
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
