<!--#include file=CONN.ASP-->
<!--#include file=cookies.asp-->
<%
dim  rsa,sqla,xxxx
xxxx=trim(request("id"))
set rsa=server.createobject("adodb.recordset")
sqla="select shi from [FOX_shop] where id="&xxxx&""
rsa.open sqla,conn,1,1
if  rsa("shi")<>session("admin_shi") then
response.Write "<script LANGUAGE='javascript'>alert('您管理的范围超过了您的地区！');" & "window.location='shop.asp'" & "</script>"
response.end
else

dim rs,sql,id,i,str2,username,tupian,objFSO,fileExt,sql1,rs1,sql2,sql4
username=request.cookies("fox")("username")
id=trim(request("id"))
if trim(id)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql2="delete from [FOX_hf] where xxid="&id&" "
rs.open sql2,conn,1,3
sql4="select hfcs from [FOX_shop] where id="&id&""
rs.open sql4,conn,1,3
rs("hfcs")=0
rs.update
response.write "<script language=JavaScript>" & chr(13) & "alert('删除回复信息成功！');" & "window.location='shop.asp?fox=7'" & "</script>"
response.end
rs.close
set rs=nothing
closedb
end if%>