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
%>