<!--#include file="../../Include/Const.asp" -->
<!--#include file="../../Include/Conn1.asp" -->
<!--#include file="../CheckAdmin.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Images/CssAdmin.css">

<%
	Dim z_OrderID,Hidden
	z_OrderID = Trim(Request("ID"))
	Hidden = Trim(Request("Hidden"))
	if hidden="" or isnumeric(Hidden) = false then
	Hidden = 0
	end if
	
	if z_OrderID="" then
		founderr=true
		errmsg=errmsg & "<br><li>请您选择要删除的留言信息i！！</li>"
	end if
	
	sSql = "update Angel_Message set hidden="&Hidden&" where id="& z_OrderID &""
	Conn.Execute sSql
	response.write "<p align=center>修改信息成功，1秒后自动返回留言管理页！<script>window.setTimeout(""location.href='User_message.asp'"",1000);</script></p>"
%>