rssfeed.asp

来自「现在好了」· ASP 代码 · 共 371 行 · 第 1/2 页

									End If
								Else
									msginfo = "此用户已经被锁定,或屏蔽,不显示发言内容"		
								End If
							Else
								msginfo = "您没有查看内容的权限。"		
							End If
						
						End If			
					End If	
				End If
			End If
			Cnode1.appendChild(XMLDOM.createCDATASection(msginfo))
		Rs.MoveNext
		Loop
		
	End If
	Rs.Close
	Set Rs=Nothing
End Select
Sub ShowXML()
	Response.Clear
	Response.CharSet="gb2312"  '数据集
	Response.ContentType="text/xml"  '数据流格式定义
	Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine
	Response.Write XMLDOM.xml
	Set XMLDOM=Nothing
End Sub
If RssDataMode<>"0" Then
	Set dv_ubb=Nothing
End If
ShowXML()
Function GetSetting(BoardID)
	GetSetting=True
	Dim Node
	Dim Rs,IsGroupSetting
	For each node in Dvbbs.BoardXML.documentElement.getElementsByTagName("board")
		If CStr(Node.attributes.getNamedItem("boardid").text) =CStr(boardid) Then
			board_Setting = Split(Node.attributes.getNamedItem("board_setting").text,",")
			IsGroupSetting=Node.attributes.getNamedItem("isgroupsetting").text
			BoardUser=Split(Node.attributes.getNamedItem("boarduser").text,",")
			Exit For 
		End If
	Next
	If IsGroupSetting<>""  Then
		IsGroupSetting = "," & IsGroupSetting & ","
		If InStr(IsGroupSetting,"," & Dvbbs.UserGroupID & ",")>0 Then
			Set Rs=Dvbbs.Execute("Select PSetting From Dv_BoardPermission Where Boardid="&Dvbbs.Boardid&" And GroupID="&Dvbbs.UserGroupID)
			If Not (Rs.Eof And Rs.Bof) Then
				GroupSetting = Split(Rs(0),",")
			End If
			Set Rs=Nothing
		End If
		If Dvbbs.UserID>0 And InStr(IsGroupSetting,",0,")>0 Then
			Set Rs=Dvbbs.execute("Select Uc_Setting From Dv_UserAccess Where Uc_Boardid="&Dvbbs.BoardID&" And uc_UserID="&Dvbbs.Userid)
			If Not(Rs.Eof And Rs.Bof) Then
				Dvbbs.UserPermission=Split(Rs(0),",")
				Dvbbs.GroupSetting = Split(Rs(0),",")
				Dvbbs.FoundUserPer=True
			End If
			Set Rs=Nothing
		End If
	End If
	If Board_Setting(1)="1" And Dvbbs.GroupSetting(37)="0" Then
		GetSetting=False
		Exit Function
	End If
	If Dvbbs.GroupSetting(0)="0"  Then Dvbbs.AddErrCode(27)
	'访问论坛限制(包括文章、积分、金钱、魅力、威望、精华、被删数、注册时间)
	Dim BoardUserLimited
	BoardUserLimited = Split(Board_Setting(54),"|")
	If Ubound(BoardUserLimited)=8 Then
		'文章
		If Trim(BoardUserLimited(0))<>"0" And IsNumeric(BoardUserLimited(0)) Then
			If Dvbbs.UserID = 0 Then 
				GetSetting=False
				Exit Function
			End If
			If Clng(Dvbbs.MyUserInfo(8))<Clng(BoardUserLimited(0)) Then
				GetSetting=False
				Exit Function
			End If
		End If
		'积分
		If Trim(BoardUserLimited(1))<>"0" And IsNumeric(BoardUserLimited(1)) Then
			If Dvbbs.UserID = 0 Then
				GetSetting=False
				Exit Function
			End If
			If Clng(Dvbbs.MyUserInfo(22))<Clng(BoardUserLimited(1)) Then
				GetSetting=False
				Exit Function
			End If
		End If
		'金钱
		If Trim(BoardUserLimited(2))<>"0" And IsNumeric(BoardUserLimited(2)) Then
			If Dvbbs.UserID = 0 Then 
				GetSetting=False
				Exit Function
			End If
			If Clng(Dvbbs.MyUserInfo(21))<Clng(BoardUserLimited(2)) Then
				GetSetting=False
				Exit Function
			End If
		End If
		'魅力
		If Trim(BoardUserLimited(3))<>"0" And IsNumeric(BoardUserLimited(3)) Then
			If Dvbbs.UserID = 0 Then
				GetSetting=False
				Exit Function
			End If
			If Clng(Dvbbs.MyUserInfo(23))<Clng(BoardUserLimited(3)) Then
				GetSetting=False
				Exit Function
			End If
		End If
		'威望
		If Trim(BoardUserLimited(4))<>"0" And IsNumeric(BoardUserLimited(4)) Then
			If Dvbbs.UserID = 0 Then 
				GetSetting=False
				Exit Function
			End If
			If Clng(Dvbbs.MyUserInfo(24))<Clng(BoardUserLimited(4)) Then
				GetSetting=False
				Exit Function
			End If
		End If
		'精华
		If Trim(BoardUserLimited(5))<>"0" And IsNumeric(BoardUserLimited(5)) Then
			If Dvbbs.UserID = 0 Then
				GetSetting=False
				Exit Function
			End If
			If Clng(Dvbbs.MyUserInfo(28))<Clng(BoardUserLimited(5)) Then
				GetSetting=False
				Exit Function
			End If
		End If
		'删贴
		If Trim(BoardUserLimited(6))<>"0" And IsNumeric(BoardUserLimited(6)) Then
			If Dvbbs.UserID = 0 Then
				GetSetting=False
				Exit Function
			End If
			If Clng(Dvbbs.MyUserInfo(27))>Clng(BoardUserLimited(6)) Then
				GetSetting=False
				Exit Function
			End If
		End If
		'注册时间
		If Trim(BoardUserLimited(7))<>"0" And IsNumeric(BoardUserLimited(7)) Then
			If Dvbbs.UserID = 0 Then 	
				GetSetting=False
				Exit Function
			End If
			If DateDiff("s",Dvbbs.MyUserInfo(14),Now)<Clng(BoardUserLimited(7))*60 Then 
				GetSetting=False
				Exit Function
			End If
		End If
		
	End If
	'认证版块判断Board_Setting(2)
	If Board_Setting(2)="1" Then
		If Dvbbs.UserID=0 Then
			GetSetting=False
			Exit Function
		Else
			Dim Boarduser,Canlogin,i
			Canlogin = False
			If Ubound(Boarduser)=-1 Then	'为空时值等于-1
				GetSetting=False
				Exit Function
			Else
				For i = 0 To Ubound(Boarduser)
					If Trim(Lcase(Boarduser(i))) = Trim(Lcase(Dvbbs.MemberName)) Then
						GetSetting = True
						Exit For
					End If				
				Next
			End If
		End If
	End If
End Function 
%>