viewmanage.asp

功能强大的bbs

			For i=0 to Rs2.Fields.count-1
				Boardtmpdata=Boardtmpdata & Rs2(i)& "^&%&"
			Next 
			Boardtmpdata=Boardtmpdata&"%#!&"
			Rs2.MoveNext
			j=j+1
		Loop		
	End If
	Usertmpdata=Dvbbs.HTMLEncode(Usertmpdata)
	Usertmpdata=Replace(Replace(Replace(Replace(Usertmpdata&"","\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")
	Boardtmpdata=Dvbbs.HTMLEncode(Boardtmpdata)
	Boardtmpdata=Replace(Replace(Replace(Replace(Boardtmpdata&"","\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")
	Response.Write vbNewLine
	'Response.Write "sfasfgsdf"&Usertmpdata
	Response.Write "ShowUserList('"&Usertmpdata&"','"&Boardtmpdata&"');"
	Rs.Close
	Set Rs= Nothing 
	Set Rs2= Nothing 
End Sub 

sub Auto(Ann,Cancel)
	dim allbm:allbm="" 'allbm为记录所以超过30未登录的版主
	dim VIPtitle,rs2,BoardMaster_1,BoardMaster_2,k,bm,j,i
	set rs2=conn.execute("select username from [DV_user] where datediff('d',lastlogin,now())>30 and UserGroupID>0 and UserGroupID<4")
	If Not(Rs2.BOF or Rs2.EOF) Then
     do while not rs2.EOF
		allbm=rs2(0) & "，" & allbm 
     rs2.MoveNext
     loop
	end if
	set rs2=nothing
	if allbm<>"" then
		if Ann then
			conn.execute("insert into Dv_BbsNews(boardid,title,content,username,addtime) values (0,'［公告］撤消"&allbm&" 版主一职！','原因：超过30天没有登录系统，情节严重！','系统协调中心',now())")
		end if
		
		if Cancel then
		  set rs2=conn.execute("select usertitle from Dv_UserGroups where UserGroupID=8")
 		  VIPtitle=rs2(0)
		  bm=split(allbm,"，")
		  for j=0 to ubound(bm)-1
			  conn.execute("update [Dv_User] set UserGroupID=8,userclass='"&VIPtitle&"' where username='"&bm(j)&"'")
		  next	  
		  set rs2=nothing

		set rs2=conn.execute("select BoardMaster,boardid from Dv_Board")
		do while not rs2.eof
			for j=0 to ubound(bm)-1
			if (not (isnull(rs2(0)) or rs2(0)="")) and instr(1,rs2(0),bm(j),1)<>0 then 
				BoardMaster_1=""
				BoardMaster_2=""
				BoardMaster_1=split(rs2(0),"|") 
				for i=ubound(BoardMaster_1) to 0 step -1
					if BoardMaster_1(i)=bm(j) then
						BoardMaster_2=BoardMaster_2
					elseif i=ubound(BoardMaster_1) then
						BoardMaster_2=BoardMaster_1(i)
					else
						if BoardMaster_2<>"" then
							BoardMaster_2=BoardMaster_1(i)&"|"&BoardMaster_2
						else
							BoardMaster_2=BoardMaster_1(i)
						end if
					end if
				next
				conn.execute("update [Dv_Board] set BoardMaster='"&BoardMaster_2&"' where boardid="&rs2(1)&"")	
			end if
			next		
		rs2.movenext
		loop
		set rs2=nothing
	  end if
	end if
end sub
%>