<!-- #include file="common.asp"-->
<!-- #include file="isadm.asp" -->
<%
If Request.QueryString("action") = "clw" Then
	Dim zsb_auth, hasAuth
	hasAuth = False
	zsb_auth = Split( Trim( session("zsb_auth") ), ",", -1, 1 )
	For Each auth In zsb_auth
		If ( auth = "clearword" ) Then
				hasAuth = True
			Exit For
		End If
	Next
	
	If hasAuth = false Then
		Response.Write("<script language=javascript>alert('对不起，你没有权限，请联系超级管理员！');history.back(-1);</script>")
	Else
		zsbsObj.ClearLeaveWord( conn )
		Response.Redirect("manage.asp")
		conn.Close
		Set conn = Nothing
	End If
ElseIf Request.QueryString("action")="zsns" Then
	Dim StrSQL
	StrSQL = "update [Config] set UnViewZSNews="&Request("nview")
	conn.Execute(StrSQL)
	conn.Close
	Set conn = Nothing
	Response.Write("<script language=javascript>alert('设定成功！');location.href='manage.asp?pn="&Request("pn")&"';</script>")
End If
%>