<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="conn.asp"-->
<%
call head
dim TP,Action,id
Action=Request.QueryString("Action")
id=usb(request("id"))
tp=usb(request("tp"))
if tp<>1 then
if id="" then
  Call Error("ID无效！")
  end if
Call saycardd("删除土地成功")
connnong.Execute"delete from FARM where id="&id
Response.Write "删除土地成功"
else
Call saycardd("删除土地")
Response.Write "确定删除用户的土地"
Response.Write "<br/><a href=""?tp=2&amp;id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">是</a>|<a href=""nclb.asp?sid="&sid&"&amp;saytk="&saytk&""">否</a><br/>"
end if
response.write "<br/><a href=""xgnc.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;usid="&usid&"&amp;tp=1"">返回该用户农场</a><br/>"
%>
<!--#include file="fanf.asp"-->
<%Call head1()%>