<!--#include file=CONN.ASP-->
<!--#include file=cookies.asp-->
<%
dim flag
flag=request.cookies("foxwww")("fox")
if flag=10 then
response.Write "<script LANGUAGE='javascript'>alert('您只是后台测试员，请注意身份！');window.location='right.asp';</script>"
response.end
end if%>
<%
dim rs,sql,id,i,str2,username,tupian,objFSO,fileExt,sql1,rs1,sql2
id=trim(request("id"))

if trim(id)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择ID记录！');" & "history.back()" & "</script>"
response.end
end if
dim ts,xxid
set rs=server.createobject("adodb.recordset")
sql="select ts,xxid from [FOX_hf] where id="&id&""
rs.open sql,conn,1,1
ts=rs("ts")
xxid=rs("xxid")
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="delete from [FOX_hf] where id="&id&""
rs.open sql,conn,1,3
rs.close
set rs=nothing
if ts>2 then
Conn.Execute("Update FOX_shop Set hfcs=hfcs-1 where id="&cstr(xxid))
else
Conn.Execute("Update FOX_xinxi Set hfcs=hfcs-1 where id="&cstr(xxid))
end if
response.write "<script language=JavaScript>" & chr(13) & "alert('删除成功！');" &"window.location='userhf.asp'" & "</script>"
response.end
closedb
%>
</body></html>