⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 settopic.asp

📁 BBS源码 利用ASP的一个功能齐全的BBS论坛源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="Inc.asp"-->
<%Dim Caption,Content,Rs,ID,Url,Action,SetUserName,GoToUrl,Page
BBS94KK.Fun.CheckMake()
ID=BBS94KK.Checknum(request.querystring("ID"))
Page=BBS94KK.CheckNum(request.querystring("page"))
Action=lcase(request.querystring("Action"))
If BBS94KK.BoardID=0 or ID=0  Then BBS94KK.GoToErr(1)
BBS94KK.CheckBoard()
IF BBS94KK.MyAdmin<>1 And BBS94KK.MyAdmin<>2 And Not BBS94KK.IsBoardAdmin Then BBS94KK.GoToErr(22)
If BBS94KK.Execute("Select ID From[KK_user]where Name='"&BBS94KK.MyName&"' And PassWord='"&BBS94KK.MyPwd&"' And Isdel=False").Eof Then
	BBS94KK.MakeCookiesEmpty()
	BBS94KK.GotoErr(37)
End IF
Set Rs=BBS94KK.Execute("Select Name,BoardID From[KK_topic] Where TopicID="&ID&" And (BoardID="&BBS94KK.BoardID&" or TopType=5)")
	IF Not Rs.eof Then
		SetUserName=Rs("Name")
		BBS94KK.BoardID=Rs("BoardID")
		Rs.Close
	Else
		BBS94KK.GoToErr(11)
	End IF
URl="Show.asp?BoardID="&BBS94KK.BoardID&"&ID="&ID&"&TB="&BBS94KK.TB&"&Page="&Page
GoToUrl=True
Call BBS94KK.Head("管理帖子")
Caption="操 作 成 功！"
Select Case Action
Case"提升"
	TopHeight
Case"精华"
	SetTopicGood
Case"取消精华"
	SetNotTopicGood
Case"置顶"
	SetTop
Case"取消置顶"
	SetNotTop
Case"总置顶"
	SetAllTop
Case"取消总置顶"
	SetNotAllTop
Case"区置顶"
	SetClassTop
Case"取消区置顶"
	SetNotClassTop
Case"锁定"
	SetTopicLock
Case"解锁"
	SetNotTopicLock
Case"删除主题"
	DelTopic
Case"删除回复"
	DelReply
Case"移动"
	SetMove
Case"move"
	SaveMove
Case"已解决"
	IsOk
Case"评帖"
	SetAppraise
Case"沉底"
	Setsubside
Case"appraise"
	SaveAppraise
Case"delappraise"
	delappraise
Case Else
	BBS94KK.GoToErr(1)
End Select
Show()
BBS94KK.Footer()
Set BBS94KK=Nothing

Sub Show()
	Dim Temp
	IF GoToUrl Then Content=Content&"<li><a href="&Url&">回到帖子</a>"
	Content="<Div style='margin:15;line-height: 150%'>"&Content&"</Div>"
	Temp=BBS94KK.Template.ReadTemplate("内容表格")
	Temp=Replace(Temp,"{标题}",Caption)
	Temp=Replace(Temp,"{内容}",Content)
	Response.Write(Temp)
End Sub
Sub SetTop
	Set Rs=BBS94KK.execute("Select TopType From[KK_Topic] where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Rs(0)=5 Then
			BBS94KK.GoToErr(23)
		ElseIf Rs(0)=4 Then
			BBS94KK.GoToErr(56)
		ElseIF Rs(0)=3 Then
			Caption="错误信息"
			Content="<Li>该主题帖子已经被置顶了！"			
		Else
			BBS94KK.Execute("update [KK_Topic] Set TopType=3 where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
			BBS94KK.execute("update [KK_User] set Coin=Coin+300,Mark=Mark+2 Where name='"&SetUserName&"'")
			Content="<Li>设定为置顶帖子---成功！<Li>同时给该主题的作者："&SetUserName&" 金钱+200 ，积分+2 的奖励！"
		End If
	End If
	Rs.Close
End Sub
Sub SetNotTop
	Set Rs=BBS94KK.execute("Select TopType From[KK_Topic] where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Rs(0)=5 Then
			BBS94KK.GoToErr(23)
		ElseIf Rs(0)=4 Then
			BBS94KK.GoToErr(56)
		ElseIF Rs(0)<>3 Then
			Caption="错误信息"
			Content="该主题帖子已经没有置顶了！"			
		Else
			BBS94KK.Execute("update [KK_Topic] Set TopType=0 where TopicId="&ID&" ")
			BBS94KK.execute("update [KK_User] set Coin=Coin-100,Mark=Mark-1 Where Name='"&SetUserName&"'")
			Content="<li>取消置顶帖子---成功！<Li>同时给该主题的作者："&SetUserName&" 金钱-200 ，积分-2 的操作！"	
		End If
	End If
	Set Rs=Nothing
End Sub	
Sub SetAllTop
	IF BBS94KK.MyAdmin<>1 and BBS94KK.MyAdmin<>2 Then BBS94KK.GoToErr(24)
	Set Rs=BBS94KK.execute("Select TopType From[KK_Topic] where TopicID="&ID&" And (BoardID="&BBS94KK.BoardID&" or TopType=5)")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Rs(0)=5 Then
			BBS94KK.GoToErr(23)
		Else
			BBS94KK.execute("update [KK_Topic] Set TopType=5 where TopicID="&id&" And BoardID="&BBS94KK.BoardID&"")
			BBS94KK.execute("update [KK_user] Set Coin=Coin+400,Mark=Mark+4 where Name='"&SetUserName&"'")
			Content="<li>设定为总置顶帖子---成功！<Li>同时给该主题的作者："&SetUserName&" 金钱+500 ，积分+4 的奖励！"
		End If
	End If
	Rs.Close
End Sub
Sub SetNotAllTop
	IF BBS94KK.MyAdmin<>1 and BBS94KK.MyAdmin<>2 Then BBS94KK.GoToErr(24)
	Set Rs=BBS94KK.execute("Select TopType From[KK_Topic] where TopicID="&ID&" And (BoardID="&BBS94KK.BoardID&" or TopType=5)")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Rs(0)<>5 Then
			BBS94KK.GoToErr(45)
		Else
		BBS94KK.execute("update [KK_Topic] set TopType=0 where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
		BBS94KK.execute("update [KK_user] set Coin=Coin-100,Mark=Mark-1 where name='"&SetUserName&"'")
		Content="<li>取消总置顶帖子---成功！<li>同时给该主题的作者："&SetUserName&" 金钱-100 ，积分-1 的操作！"
		End If
	End If
	Rs.Close
End Sub
Sub SetClassTop
	IF BBS94KK.MyAdmin<>1 and BBS94KK.MyAdmin<>2 Then BBS94KK.GoToErr(24)
	Set Rs=BBS94KK.execute("Select TopType From[KK_Topic] where TopicID="&ID&" And (BoardID="&BBS94KK.BoardID&" or TopType=4)")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Rs(0)=5 Then
			BBS94KK.GoToErr(23)
		ElseIf Rs(0)=4 Then
			BBS94KK.GoToErr(56)
		Else
			BBS94KK.execute("update [KK_Topic] Set TopType=4 where TopicID="&id&" And BoardID="&BBS94KK.BoardID&"")
			BBS94KK.execute("update [KK_user] Set Coin=Coin+400,Mark=Mark+3 where Name='"&SetUserName&"'")
			Content="<li>设定为区置顶帖子---成功！<Li>同时给该主题的作者："&SetUserName&" 金钱+400 ，积分+3 的奖励！"
		End If
	End If
	Rs.Close
End Sub

Sub SetTopicGood
	Dim Rs
	Set Rs=BBS94KK.Execute("Select IsGood From[KK_Topic] where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Rs(0) Then
			Caption="错误信息"
			Content="该主题帖子已经是精华帖子了！"
		ELse
			BBS94KK.Execute("update [KK_Topic] set IsGood=True where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
			BBS94KK.execute("update [KK_User] set Coin=Coin+200,Mark=Mark+1,GoodNum=GoodNum+1 where name='"&SetUserName&"'")
			Content="<Li>设定为精华帖子---成功！<Li>同时给该主题的作者："&SetUserName&" 金钱+200 ，积分+1 的奖励！"
		End If
	End If
	Rs.Close
End Sub
Sub SetNotTopicGood
	Set Rs=BBS94KK.Execute("Select IsGood From[KK_Topic] where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Not Rs(0) Then
			Caption="错误信息"
			Content="<Li>该主题帖子已经被取消了精华了！"
		ELse
			BBS94KK.Execute("update [KK_Topic] set IsGood=False where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
			BBS94KK.execute("update [KK_User] set Coin=Coin-200,Mark=Mark-1,GoodNum=GoodNum-1 where name='"&SetUserName&"'")
			Content="<Li>取消帖子精华---成功！<Li>同时给该主题的作者："&SetUserName&" 金钱-200 ，积分-1 的操作！"
		End If
	End If
	Rs.Close
End Sub

Sub SetNotClassTop
	IF BBS94KK.MyAdmin<>1 and BBS94KK.MyAdmin<>2 Then BBS94KK.GoToErr(24)
	Set Rs=BBS94KK.execute("Select TopType From[KK_Topic] where TopicID="&ID&" And (BoardID="&BBS94KK.BoardID&" or TopType=4)")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Rs(0)<>4 Then
			BBS94KK.GoToErr(57)
		Else
		BBS94KK.execute("update [KK_Topic] set TopType=0 where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
		BBS94KK.execute("update [KK_user] set Coin=Coin-100,Mark=Mark-1 where name='"&SetUserName&"'")
		Content="<li>取消区置顶帖子---成功！<li>同时给该主题的作者："&SetUserName&" 金钱-100 ，积分-1 的操作！"
		End If
	End If
	Rs.Close
End Sub
Sub SetTopicLock
	Set Rs=BBS94KK.execute("Select IsLock From[KK_Topic] where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Rs(0) Then
			Caption="错误信息"
			Content="<li>该主题帖子已经被锁定了！"
		Else
			BBS94KK.execute("update [KK_Topic] set IsLock=True where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
			Content="<li>帖子锁定---成功！"
		End If
	End If
	Rs.Close
End Sub
Sub SetNotTopicLock
	Set Rs=BBS94KK.execute("Select Islock From[KK_Topic] where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
	If Rs.eof Then
		BBS94KK.GoToErr(11)
	Else
		IF Not Rs(0) Then
			Caption="错误信息"
			Content="<li>该主题帖子已经解锁了！"
		Else
			BBS94KK.execute("update [KK_Topic] set IsLock=False where TopicID="&ID&" And BoardID="&BBS94KK.BoardID&"")
			Content="<Li>帖子解锁---成功！"
		End IF
	End if
	Rs.Close
End Sub

Sub DelTopic
	Dim Temp,Cmd,Cause,IsSms,Sms,Smss,Mark,coin,GameCoin
	GotoUrl=False
	Cmd=Request("Cmd")
	If Cmd="del" then
		Mark=BBS94KK.Fun.GetStr("mark")
		Coin=BBS94KK.Fun.GetStr("coin")
		GameCoin=BBS94KK.Fun.GetStr("gamecoin")
		Cause=BBS94KK.Fun.GetStr("cause")
		IsSms=BBS94KK.Fun.GetStr("isSms")
		Sms=BBS94KK.Fun.GetStr("sms")
	If Cause="" Then
		Content="<li>请填写删除理由！<a href=javascript:history.go(-1)>[返回]</a>"	
	ElseIf Len(Cause)>10 Then
		Content="<li>删除理由描述不能超过10个字符！<a href=javascript:history.go(-1)>[返回]</a>"	
	Else
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -