<!--#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
	z_OrderID = Trim(Request("ID"))
	
	if z_OrderID="" then
		founderr=true
		errmsg=errmsg & "<br><li>请您选择要删除的留言信息！！</li>"
	end if
	
	sSql = "DELETE FROM Angel_Message WHERE id="& z_OrderID &""
	Conn.Execute sSql

	' 3秒转向订单列表页
	response.write "<p align=center>删除信息成功，1秒后自动返回留言管理页！<script>window.setTimeout(""location.href='User_message.asp'"",1000);</script></p>"


%>