gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\inc\Dv_ClsOther.asp
<% Rem 除首页外通用函数 'Mybbs.Board_Setting(40)是否继承上级版主,顺带取出上级论坛版面信息 '最多只取向上的10级版面信息 '输出导航菜单字串 Function CheckBoardInfo() Dim i Mybbs.Boardmaster =False If Mybbs.BoardID>0 and Mybbs.BoardParentID>0 Then Dim TempData,NavStr If Not IsArray(Mybbs.Board_Data(22,0)) Then If Clng(Mybbs.Board_Data(22,0))=Mybbs.BoardID And Mybbs.Board_Data(2,0)>0 Then Mybbs.Name = "BoardInfo_" & Mybbs.BoardID Call Mybbs.LoadBoardParentStr (Mybbs.Board_Data(3,0)) Mybbs.Board_Data = Mybbs.Value End If End If TempData=Mybbs.Board_Data(22,0) If Cstr(Mybbs.Board_Data(21,0))=Cstr(Mybbs.BoardID) Then Mybbs.Name = "BoardInfo_" & Mybbs.BoardID Call Mybbs.LoadBoardList(Mybbs.BoardID,1) Call Mybbs.LoadBoardList(Mybbs.BoardID,0) Mybbs.Board_Data = Mybbs.Value End If If Mybbs.Master Then Mybbs.Boardmaster=True ElseIf Mybbs.Superboardmaster Then Mybbs.Boardmaster=True ElseIf Mybbs.UserGroupID =3 And Not Trim(Mybbs.BoardMasterList) = "" Then If Instr("|"&Mybbs.BoardMasterList&"|","|"&Mybbs.Membername&"|")>0 Then Mybbs.Boardmaster=True End If End If ElseIf Mybbs.BoardID>0 and Mybbs.UserID>0 Then If Mybbs.Master Then Mybbs.Boardmaster=True ElseIf Mybbs.Superboardmaster Then Mybbs.Boardmaster=True ElseIf Mybbs.UserGroupID =3 And Not Trim(Mybbs.BoardMasterList) = "" Then If Instr("|"&lcase(Mybbs.BoardMasterList)&"|","|"&lcase(Mybbs.Membername)&"|")>0 Then Mybbs.Boardmaster=True End If End If End If If Mybbs.BoardID>0 and Mybbs.BoardParentID>0 Then For i=0 To Ubound(TempData,2) If i=0 Then If Mybbs.GroupSetting(37)="1" Then NavStr=" <a href=""list.asp?boardid="&TempData(0,i)&""" onMouseOver=""showmenu(event,'"&Mybbs.Board_Data(21,0)&"')"">"& TempData(1,i) &"</a> " Else NavStr=" <a href=""list.asp?boardid="&TempData(0,i)&""" onMouseOver=""showmenu(event,'"&Mybbs.Board_Data(26,0)&"')"">"& TempData(1,i) &"</a> " End If Else NavStr=NavStr& "→ <a href=""list.asp?boardid="&TempData(0,i)&""">"& TempData(1,i) &"</a> " End If If Cint(Mybbs.Board_Setting(40))=1 And Not Mybbs.Boardmaster Then If Mybbs.UserGroupID =3 And Trim(TempData(2,i))<>"" Then If instr("|"&lcase(TempData(2,i))&"|","|"&lcase(Mybbs.membername)&"|")>0 Then Mybbs.Boardmaster=True Else Mybbs.Boardmaster=False End If End If End If If i>9 Then Exit For Next CheckBoardInfo=NavStr End If Call GetBoardPermission() 'Response.Write Mybbs.Boardmaster End Function Rem 获得版面用户组权限配置 Public Sub GetBoardPermission() Dim Rs,IsGroupSetting IsGroupSetting = Mybbs.IsGroupSetting If IsGroupSetting<>"" And Not IsNull(IsGroupSetting) Then IsGroupSetting = "," & IsGroupSetting & "," If InStr(IsGroupSetting,"," & Mybbs.UserGroupID & ",")>0 Then Set Rs=Mybbs.Execute("Select PSetting From Dv_BoardPermission Where Boardid="&Mybbs.Boardid&" And GroupID="&Mybbs.UserGroupID) If Not (Rs.Eof And Rs.Bof) Then Mybbs.GroupSetting = Split(Rs(0),",") End If Set Rs=Nothing End If If Mybbs.UserID>0 And InStr(IsGroupSetting,",0,")>0 Then Set Rs=Mybbs.execute("Select Uc_Setting From Dv_UserAccess Where Uc_Boardid="&Mybbs.BoardID&" And uc_UserID="&Mybbs.Userid) If Not(Rs.Eof And Rs.Bof) Then Mybbs.UserPermission=Split(Rs(0),",") Mybbs.GroupSetting = Split(Rs(0),",") Mybbs.FoundUserPer=True End If Set Rs=Nothing End If End If If Mybbs.Boardmaster Then Exit Sub Call Chkboardlogin() End Sub Rem 能否进入论坛的判断 Public Sub Chkboardlogin() If Mybbs.Board_Setting(1)="1" And Mybbs.GroupSetting(37)="0" Then Mybbs.AddErrCode(26) If Mybbs.GroupSetting(0)="0" Then Mybbs.AddErrCode(27) '访问论坛限制(包括文章、积分、金钱、魅力、威望、精华、被删数、注册时间) Dim BoardUserLimited BoardUserLimited = Split(Mybbs.Board_Setting(54),"|") If Ubound(BoardUserLimited)=8 Then '文章 If Trim(BoardUserLimited(0))<>"0" And IsNumeric(BoardUserLimited(0)) Then If Mybbs.UserID = 0 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户发贴最少为 <B>"&BoardUserLimited(0)&"</B> 才能进入&action=OtherErr" If Clng(Mybbs.MyUserInfo(8))<Clng(BoardUserLimited(0)) Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户发贴最少为 <B>"&BoardUserLimited(0)&"</B> 才能进入&action=OtherErr" End If '积分 If Trim(BoardUserLimited(1))<>"0" And IsNumeric(BoardUserLimited(1)) Then If Mybbs.UserID = 0 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户积分最少为 <B>"&BoardUserLimited(1)&"</B> 才能进入&action=OtherErr" If Clng(Mybbs.MyUserInfo(22))<Clng(BoardUserLimited(1)) Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户积分最少为 <B>"&BoardUserLimited(1)&"</B> 才能进入&action=OtherErr" End If '金钱 If Trim(BoardUserLimited(2))<>"0" And IsNumeric(BoardUserLimited(2)) Then If Mybbs.UserID = 0 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户金钱最少为 <B>"&BoardUserLimited(2)&"</B> 才能进入&action=OtherErr" If Clng(Mybbs.MyUserInfo(21))<Clng(BoardUserLimited(2)) Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户金钱最少为 <B>"&BoardUserLimited(2)&"</B> 才能进入&action=OtherErr" End If '魅力 If Trim(BoardUserLimited(3))<>"0" And IsNumeric(BoardUserLimited(3)) Then If Mybbs.UserID = 0 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户魅力最少为 <B>"&BoardUserLimited(3)&"</B> 才能进入&action=OtherErr" If Clng(Mybbs.MyUserInfo(23))<Clng(BoardUserLimited(3)) Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户魅力最少为 <B>"&BoardUserLimited(3)&"</B> 才能进入&action=OtherErr" End If '威望 If Trim(BoardUserLimited(4))<>"0" And IsNumeric(BoardUserLimited(4)) Then If Mybbs.UserID = 0 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户威望最少为 <B>"&BoardUserLimited(4)&"</B> 才能进入&action=OtherErr" If Clng(Mybbs.MyUserInfo(24))<Clng(BoardUserLimited(4)) Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户威望最少为 <B>"&BoardUserLimited(4)&"</B> 才能进入&action=OtherErr" End If '精华 If Trim(BoardUserLimited(5))<>"0" And IsNumeric(BoardUserLimited(5)) Then If Mybbs.UserID = 0 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户精华最少为 <B>"&BoardUserLimited(5)&"</B> 才能进入&action=OtherErr" If Clng(Mybbs.MyUserInfo(28))<Clng(BoardUserLimited(5)) Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户精华最少为 <B>"&BoardUserLimited(5)&"</B> 才能进入&action=OtherErr" End If '删贴 If Trim(BoardUserLimited(6))<>"0" And IsNumeric(BoardUserLimited(6)) Then If Mybbs.UserID = 0 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户被删贴少于 <B>"&BoardUserLimited(6)&"</B> 才能进入&action=OtherErr" If Clng(Mybbs.MyUserInfo(27))>Clng(BoardUserLimited(6)) Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户被删贴少于 <B>"&BoardUserLimited(6)&"</B> 才能进入&action=OtherErr" End If '注册时间 If Trim(BoardUserLimited(7))<>"0" And IsNumeric(BoardUserLimited(7)) Then If Mybbs.UserID = 0 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户注册时间大于 <B>"&BoardUserLimited(7)&"</B> 分钟才能进入&action=OtherErr" If DateDiff("s",Mybbs.MyUserInfo(14),Now)<Clng(BoardUserLimited(7))*60 Then Response.redirect "showerr.asp?ErrCodes=<li>本版面设置了用户注册时间大于 <B>"&BoardUserLimited(7)&"</B> 分钟才能进入&action=OtherErr" End If End If '认证版块判断Board_Setting(2) If Mybbs.Board_Setting(2)="1" Then If Mybbs.UserID=0 Then Mybbs.AddErrCode(24) Mybbs.showerr() Else Dim Boarduser,Canlogin,i Canlogin = False BoardUser = Mybbs.boarduser If Ubound(Boarduser)=-1 Then '为空时值等于-1 Canlogin = False Else For i = 0 To Ubound(Boarduser) If Trim(Lcase(Boarduser(i))) = Trim(Lcase(Mybbs.MemberName)) Then Canlogin = True Exit For End If Next End If End If 'If Mybbs.Board_Setting(46) <> "0" And Not Canlogin Then 'Response.Redirect "pay_boardlimited.asp?boardid=" & Mybbs.BoardID If Not Canlogin Then Mybbs.AddErrCode(25) End If End If Mybbs.showerr() End Sub %>