<!--#include file=CONN.ASP-->
<!--#include file=cookies.asp-->
<!--#include file=../config.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,username,d
d=int(spjf*spjf)
username=trim(request("username"))
id=trim(request("id"))
if trim(id)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
response.end
end if
if trim(username)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="delete from [FOX_shop] where id="&id&" "
rs.open sql,conn,1,3
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select jf from [FOX_user] where username='"&username&"' "
rs.open sql,conn,1,3
rs("jf")=rs("jf")-d
rs.update
rs.close
set rs=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('删除成功！');" &"window.location='shop.asp'" & "</script>"
response.end

closedb
%></body></html>