forum_dealannounce.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->
<!--#include file=INC/Forum_bbsfun.asp-->
<!--#include file=INC/UbbCode.asp-->

<%
Dim const_txl_HomeUrl,announceid,announce_username,boardid,username,i
Dim tmpstr,goodflag,topflag,nowstat,tostat,dealuser
const_txl_HomeUrl=""
username=Session("username")
announceid=Request("announceid")
call OpenDatabase
call txl_SiteHead(const_txlname&"-影音论坛-操作帖子")
Call main()
Response.Flush()
call online
call CloseDatabase
call web_end
Response.Flush()
Sub main()
	If const_bbs_login_limit=1	Then	'论坛登录查看限制
		If session("username")="" Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>影音论坛只有登录之后才能看到</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='user_login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看影音论坛出错！",errstr,779)
			Exit Sub
		End If
	ElseIf const_bbs_login_limit=2 Then
		If session("username")="" Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>影音论坛只有影音成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='user_login.asp'>这里登录</a>!</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看影音论坛出错！",errstr,779)
			Exit Sub
		End If
		If not (session("usertype")=3 or session("usertype")=4)  Then
			errstr="<li>当前Wap影音状态已经设置为<font color=red>影音论坛只有影音成员和嘉宾有查看权限</font>!</li>"
			errstr=errstr&"<li>你目前的身份没有该权限！</li>"
			errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
			Call printerror("查看影音论坛出错！",errstr,779)
			Exit Sub
		End If
	End	If
	Dim Rs
	If	announceid="" or (not isnumeric(announceid)) Then
		Call printerror ("操作帖子出错！","<li>请不要传递非法的参数</li>",779) 
		exit sub
	End if
	announceid=Cint(announceid)
	set Rs=Conn.execute ("select boardid,username,goodflag,topflag from Announce where ID="&announceid)
	If rs.Eof Then
		Call printerror ("操作帖子出错！","<li>该帖子不存在</li>",779) 
		exit sub
	Else
		boardid=rs("boardid")
		announce_username=Rs("username")
		goodflag=rs("goodflag")
		topflag=rs("topflag")
	End If
	rs.close
	set rs=nothing
	If username="" and session("adminname")="" Then
		Call printerror ("操作帖子出错！","<li>操作帖子必须是登录成员或管理员！</li>",779) 
		exit sub
	End If
	Select Case Request.QueryString("action")
	Case "edit":	
		Call Edit
	Case "del":		
		Call del
	Case "jinghua":
		Call jinghua
	Case "makealltop": 
		Call makealltop
	Case "maketop":
		Call maketop
End Select
End SUb
sub del
	dim master,limitflag
	limitflag=false
	master=""
	master=getbbsmaster(boardid)
	if isarray(master) Then
		for i=0 to ubound(master)
			If username=master(i) Then
				limitflag=true
				exit for
			End If
		next
	ElseIf master<>"" And username=master	Then
		limitflag=true
	ELseIF master="" Then
		limitflag=false
	End IF
	If session("adminname")<>"" Then limitflag=true
	If not(limitflag) Then 
		Call printerror ("操作帖子出错！","<li>你没有操作该功能的权限！</li>",779) 
		exit sub
	Else
		If Request("queren")<>"true" Then
			Response.write "<div align=center><br><font color=red>本操作正在删除论坛帖子，且不可恢复。你确实要进行该操作吗？<br>请点击下面的“确定”按钮继续执行操作,点击“取消”来撤消本次操作。</font><br><br>"
			Response.write "<input type=button value='确定' onclick=""javascript:window.location.href='?action=del&announceid="&announceid&"&queren=true'"">&nbsp;&nbsp;&nbsp;&nbsp;<input type=button value='取消' onclick='javascript:history.back()'><br><br></div>"
		Else
			conn.Execute ("delete from Announce where parentID="&announceid)	'删除回复帖
			conn.Execute ("delete from Announce where ID="&announceid)	'删除主题帖
			tmpstr="<li>已经成功删除标号为"&announceid&"的帖子，如果该帖子是主题帖，则该主题帖下面的回复帖也已经删除！</li>"
			tmpstr=tmpstr&"<li>回<a href='Forum_BoardList.asp?boardid="&boardid&"'>论坛列表</a>！</li>"
			Call	printsuc("删除论坛帖子成功！",tmpstr,779)
		End IF
	End If
end sub

Sub edit
	dim limitflag
	limitflag=false
	If session("adminname")<>"" Then 
		limitflag=true
		dealuser="管理员"
	End If
	If announce_username=username Then
		limitflag=true
		dealuser=username
	end if
	If not(limitflag) Then 
		Call printerror ("操作帖子出错！","<li>你没有操作该功能的权限！</li>",779) 
		exit sub
	Else
		If Request.Querystring("action2")="saveedit"	Then
			Call saveedit
		Else
			Call edit2
		End If
	End If
End Sub

Sub jinghua
	dim master,limitflag
	limitflag=false
	master=""
	master=getbbsmaster(boardid)
	if isarray(master) Then
		for i=0 to ubound(master)
			If username=master(i) Then
				limitflag=true
				exit for
			End If
		next
	ElseIf master<>"" And username=master	Then
		limitflag=true
	ELseIF master="" Then
		limitflag=false
	End IF
	If session("adminname")<>"" Then limitflag=true
	If goodflag=0 then 
		nowstat="<font color=red>“非精华帖”</font>"
		tostat="<font color=red>“精华帖”</font>"
	else
		nowstat="<font color=red>“精华帖”</font>"
		tostat="<font color=red>“非精华帖”</font>"
	end if
	If not(limitflag) Then 
		Call printerror ("操作帖子出错！","<li>你没有操作该功能的权限！</li>",779) 
		exit sub
	Else
		If Request("queren")<>"true" Then
			Response.write "<div align=center><br><font color=#000000>本操作设置帖子的状态，由"&nowstat&"设为"&tostat&"，你确实要进行该操作吗？<br>请点击下面的“确定”按钮继续执行操作,点击“取消”来撤消本次操作。</font><br><br>"
			Response.write "<input type=button value='确定' onclick=""javascript:window.location.href='?action=jinghua&announceid="&announceid&"&queren=true'"">&nbsp;&nbsp;&nbsp;&nbsp;<input type=button value='取消' onclick='javascript:history.back()'><br><br></div>"
		Else
			conn.Execute ("update Announce set goodflag=1-goodflag where ID="&announceid)	'设置帖子状态
			tmpstr="<li>恭喜你，本次操作成功！</li>"
			tmpstr=tmpstr&"<li>已经成功将标号为"&announceid&"的帖子，将"&nowstat&"设置为"&tostat&"！</li>"
			tmpstr=tmpstr&"<li>回<a href='Forum_BoardList.asp?boardid="&boardid&"'>论坛列表</a>！</li>"
			Call	printsuc("设置论坛帖子成功！",tmpstr,779)
		End IF
	End If

End Sub


Sub makealltop
	dim master,limitflag
	limitflag=false
	master=""
	master=getbbsmaster(boardid)
	if isarray(master) Then
		for i=0 to ubound(master)
			If username=master(i) Then
				limitflag=true
				exit for
			End If
		next
	ElseIf master<>"" And username=master	Then
		limitflag=true
	ELseIF master="" Then
		limitflag=false
	End IF
	If session("adminname")<>"" Then limitflag=true
	'1为固顶
	'2为总固顶
	'3为普通
	If topflag=2 then 
		nowstat="<font color=red>“总固顶帖”</font>"
		tostat="<font color=red>“非总固顶帖”</font>"
	else
		nowstat="<font color=red>“非总固顶帖”</font>"
		tostat="<font color=red>“总固顶帖”</font>"
	end if
	If not(limitflag) Then