other.asp

网趣系统时尚版8（支付宝）

	Call PicPro(4,6,"正在清理删除用户的帖子！请稍等...")
		For i=0 To uBound(AllTable)
		YxBBs.execute("delete * from [YX_bbs"&AllTable(i)&"] where not exists (select name from [YX_User] where [YX_bbs"&AllTable(i)&"].Name=[YX_User].Name)")
		Next
		YxBBs.execute("delete * from [YX_Topic] where not exists (select name from [YX_User] where [YX_Topic].Name=[YX_User].Name)")
	Call Table("无效用户的帖子清理完毕！","")
	Response.Write "<script>YxBBsimg.width=400;YxBBstxt.innerHTML=""100"";YxBBsT.innerHTML=""<font color=red>成功完成整理！</font>"";</script>"
End Sub

Sub Table(Str1,Str2)
	Response.Write("<table width='98%' border='1' align='center' cellpadding='3' cellspacing='2' bordercolor='#999999' bordercolordark='#FFFFFF' bgcolor='#DEF0FE'><tr><td><Div style='margin:5;line-height: 150%'>"&Str1&"<br>"&Str2&"</Div></td></tr></table>")
End Sub
'进度条
Sub PicPro(i,sum,strtxt)
	Response.Write "<script>YxBBsimg.width=" & Fix((i/sum) * 400) & ";" & VbCrLf
	Response.Write "YxBBstxt.innerHTML=""" & FormatNumber(i/sum*100,4,-1) & """;" & VbCrLf
	Response.Write "YxBBsT.innerHTML="""& StrTxt & """;"& VbCrLf
	Response.Write "</script>" & VbCrLf
	Response.Flush
End Sub

Sub ExeDelEssay
	Dim UserName,DateNum,BoardID,AllTable,I
	DateNum=YxBBs.Fun.GetStr("DateNum")
	BoardID=YxBBs.Fun.GetStr("BoardID")
	UserName=YxBBs.Fun.GetStr("Name")
	AllTable=Split(YxBBs.BBSTable(0),",")
	Select Case Request("Go")
	Case"Date"
		If not isnumeric(DateNum) Then Call GoBack("","天数必需用数字填写！"):Exit Sub
		If BoardID=0 Then
			For i=0 To uBound(AllTable)
			YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where TopicID in (Select TopicID From [YX_Topic] where DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&") or ReplyTopicID in (Select TopicID From [YX_Topic] where DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&")")
			Next
			YxBBs.Execute("Delete From[YX_Topic] where  DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&"")
			Call Suc("","已经成功删除所有论坛在"&DateNum&"天前发表的主题帖（包括其回复帖）！<li>删除后建议对论坛做一次<a href=Other.Asp?Action=UpdateBbs>整理</a>","Other.Asp?Action=DelEssay")
		Else
			For i=0 To uBound(AllTable)
			YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where BoardID="&BoardID&" And (TopicID in (Select TopicID From [YX_Topic] where DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&") or ReplyTopicID in (Select TopicID From [YX_Topic] where DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&"))")
			Next
			YxBBs.Execute("Delete From[YX_Topic] where BoardID="&BoardID&" And DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&"")
			Call Suc("","已经成功删除在 "&YxBBs.Execute("Select BoardName From[YX_Board]where BoardID="&BoardID&"")(0)&" 上 "&DateNum&" 天前发表的主题帖（包括其回复帖）！<li>删除后建议对论坛做一次<a href=Other.Asp?Action=UpdateBbs>整理</a>","Other.Asp?Action=DelEssay")
		End IF
	Case"DateNoRe"
		If not isnumeric(DateNum) Then Call GoBack("","天数必需用数字填写！"):Exit Sub
		If BoardID=0 Then
			For i=0 To uBound(AllTable)
			YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where TopicID in (Select TopicID From [YX_Topic] where DATEDIFF('d',LastTime,'"&YxBBs.NowBbsTime&"')>"&DateNum&") or ReplyTopicID in (Select TopicID From [YX_Topic] where DATEDIFF('d',LastTime,'"&YxBBs.NowBbsTime&"')>"&DateNum&")")
			Next
			YxBBs.Execute("Delete From[YX_Topic] where  DATEDIFF('d',LastTime,'"&YxBBs.NowBbsTime&"')>"&DateNum&"")
			Call Suc("","已经成功删除所有论坛在"&DateNum&"天前没有回复的所有主题帖（包括其回复）！<li>建议删除后对论坛做一次<a href=Other.Asp?Action=UpdateBbs>整理</a>","Other.Asp?Action=DelEssay")
		Else
			For i=0 To uBound(AllTable)
			YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where TopicID in (Select TopicID From [YX_Topic] where BoardID="&BoardID&" and DATEDIFF('d',[LastTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&") or ReplyTopicID in (Select TopicID From [YX_Topic] where BoardID="&BoardID&" and DATEDIFF('d',[LastTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&")")
			Next
			YxBBs.Execute("Delete From[YX_Topic] where BoardID="&BoardID&" And DATEDIFF('d',[LastTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&"")
			Call Suc("","已经成功删除在 "&YxBBs.Execute("Select BoardName From[YX_Board]where BoardID="&BoardID&"")(0)&" 上 "&DateNum&" 天前没回复的主题帖(包括其回复帖)！<li>删除后建议对论坛做一次<a href=Other.Asp?Action=UpdateBbs>整理</a>","Other.Asp?Action=DelEssay")
		End IF
	Case"User"
		If UserName="" Then Call GoBack("",""):Exit Sub
		IF YxBBs.Execute("select name From[YX_User] where Name='"&UserName&"'").eof Then
			Call GoBack("","这个用户根本不存在！"):Exit Sub
		ElseIf BoardID=0 Then
			For i=0 To uBound(AllTable)
			YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where Name='"&UserName&"'")
			YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where ReplyTopicID in (Select TopicID From[YX_Topic] where Name='"&UserName&"')")	
			Next
			YxBBs.Execute("Delete From[YX_Topic] where Name='"&UserName&"'")
			Call Suc("","已经成功删除在所有论坛 "&UserName&" 的所有帖子！<li>建议删除后对论坛做一次<a href=Other.Asp?Action=UpdateBbs>整理</a>","Other.Asp?Action=DelEssay")
		Else
			For i=0 to uBound(AllTable)
			YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where BoardID="&BoardID&" and Name='"&UserName&"'")
			YxBBs.Execute("Delete From[YX_Bbs"&AllTable(i)&"] where ReplyTopicID in (Select TopicID From[YX_Topic] where Name='"&UserName&"' And BoardID="&BoardID&")")	
			Next
			YxBBs.Execute("Delete From[YX_Topic] where BoardID="&BoardID&" And Name='"&UserName&"'")
			Call Suc("","已经成功删除 "&UserName&" 的帖子！<li>删除后建议对论坛做一次<a href=Other.Asp?Action=UpdateBbs>整理</a>","Other.Asp?Action=DelEssay")
		End IF
	Case Else
		Call GoBack("","提交的路径不正确")
	End Select
End Sub

Sub ExeDelSms
	Dim UserName,DateNum,BoardID
	DateNum=YxBBs.Fun.GetStr("DateNum")
	Select Case Request("Go")
	Case"Date"
		If not isnumeric(DateNum) Then 
			Call GoBack("","天数必需用数字填写！")
		Else
			YxBBs.Execute("Delete From[YX_Sms] where DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&"")
			Call Suc("","已经成功删除在"&DateNum&"天前的所有留言信件！","Other.Asp?Action=DelSms")
		End If
	Case"User"
		UserName=YxBBs.Fun.GetStr("Name")
		IF YxBBs.Execute("select name From[YX_User] where lcase(Name)='"&lcase(UserName)&"'").eof Then
			Call GoBack("","这个用户根本不存在！")
		Else
		YxBBs.Execute("Delete From[YX_Sms] where MyName='"&UserName&"'")
		Call Suc("","已经成功删除了 "&UserName&" 的所有留言信件！","Other.Asp?Action=DelSms")
		End If
	Case"Auto"
		If not isnumeric(DateNum) Then 
			Call GoBack("","天数必需用数字填写！")
		Else
			YxBBs.Execute("Delete From[YX_Sms] where DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&" And Name='系统消息'")
			Call Suc("","已经成功删除在"&DateNum&"天前的所有论坛自动送信的留言信件！","Other.Asp?Action=DelSms")
		End If
	End Select
End Sub

Sub ExeMoveEssay
	Dim BoardID1,BoardID2,DateNum,UserName,AllTable,I
	BoardID1=YxBBs.Fun.GetStr("BoardID1")
	BoardID2=YxBBs.Fun.GetStr("BoardID2")
	IF BoardID1=BoardID2 Then Call GoBack("","您还没有选择目标论坛！"):Exit Sub
	AllTable=Split(YxBBs.BBSTable(0),",")
	DateNum=YxBBs.Fun.GetStr("DateNum")
	UserName=YxBBs.Fun.GetStr("Name")
	Select Case Request("Go")
		Case"Date"
			If not isnumeric(DateNum) Then Call GoBack("","天数必需用数字填写！"):Exit Sub
			For i=0 to uBound(AllTable)
				YxBBs.Execute("update [YX_Bbs"&AllTable(i)&"] Set BoardID="&BoardID2&" where TopicID in (Select TopicID from[YX_Topic] Where DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&" and BoardID="&BoardID1&") or ReplyTopicID in (Select TopicID from[YX_Topic] Where DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&" and BoardID="&BoardID1&")")
			Next
			YxBBs.Execute("update [YX_Topic] Set BoardID="&BoardID2&" where BoardID="&BoardID1&" And DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')>"&DateNum&"")
			Call Suc("","已经成功的把"&DateNum&"天前的帖子从 "&YxBBs.Execute("select BoardName From[YX_Board] where BoardID="&BoardID1&"")(0)&" 移动到 "&YxBBs.Execute("select BoardName From[YX_Board] where BoardID="&BoardID2&"")(0)&"！","Other.Asp?Action=MoveEssay")
		Case"User"
			If UserName="" Then Call GoBack("",""):Exit Sub
			IF YxBBs.Execute("select name From[YX_User] where Name='"&UserName&"'").eof Then
				Call GoBack("","这个用户根本不存在！"):Exit Sub
			Else
			For i=0 to uBound(AllTable)
				YxBBs.Execute("update [YX_Bbs"&AllTable(i)&"] Set BoardID="&BoardID2&" where TopicID in(Select TopicID from[YX_Topic] Where BoardID="&BoardID1&" and Name='"&UserName&"') or ReplyTopicID in (Select TopicID from[YX_Topic] Where BoardID="&BoardID1&" and Name='"&UserName&"')")
			Next
				YxBBs.Execute("update [YX_Topic] Set BoardID="&BoardID2&"  Where BoardID="&BoardID1&" and Name='"&UserName&"'")
				Call Suc("","已经成功的把"&UserName&"的帖子从 "&YxBBs.Execute("select BoardName From[YX_Board] where BoardID="&BoardID1&"")(0)&" 移动到 "&YxBBs.Execute("select BoardName From[YX_Board] where BoardID="&BoardID2&"")(0)&"！","Other.Asp?Action=MoveEssay")
			End If
	End Select
End Sub

Sub ExeAllSms
	Dim SmsTitle,SmsContent,UserType,Sql,Mrs,I
	SmsTitle=YxBBs.Fun.GetStr("title")
	SmsContent=YxBBs.Fun.GetStr("content")
	UserType=YxBBs.Fun.GetStr("User")
	If SmsTitle="" or SmsContent="" Then Call GoBack("",""):Exit Sub
	Select case UserType
		case"0"
			Sql="select name From [YX_online] where ClassID<>6"
		case"1"
			sql="select name from [YX_user] where not isdel"
		case"2"
			Sql="select name From [YX_user] where ClassID=3"
		case"3"
			Sql="select name From [YX_user] where ClassID=2"
		case"4"
			Sql="select name From [YX_user] where ClassID=1"
		case"5"
			Sql="select name From [YX_user] where ClassID>=3"
		case else
			Call GoBack("","非法操作"):Exit Sub
	end select
	Set Rs=YxBBs.Execute(Sql)
	If Not Rs.Eof Then
	MRs=Rs.GetRows(-1)
	rs.close
	For I=0 to Ubound(MRs,2)
	YxBBs.Execute("insert into [YX_sms](name,MyName,Title,Content) values('系统消息','"&MRs(0,i)&"','"&SmsTitle&"','"&SmsContent&"')")
	YxBBs.Execute("update [YX_user] set NewSmsNum=NewSmsNum+1,SmsSize=SmsSize+"&Len(SmsContent)&" where Name='"&MRs(0,i)&"'")
	Next
	End If
	Call Suc("","成功的群发了信件!","Other.Asp?Action=AllSms")
End Sub

Sub ExeClean
Application.Contents.RemoveAll
Call Suc("","更新缓存成功","Other.Asp?Action=Clean")
End Sub
%>