<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="conn.asp"-->
<%
call head
dim TP,Action,usid
Action=Request.QueryString("Action")
usid=usb(request("usid"))
tp=usb(request("tp"))
if tp<>1 then
if usid="" then
  Call Error("ID无效！")
  end if

  Call saycardd("删除农场成功")
 connnong.Execute"delete from FARM where usid="&usid
 connnong.Execute"delete from beibao where usid="&usid
 connnong.Execute"delete from cangku where usid="&usid
 Response.Write "删除农场成功"
else
  Call saycardd("删除农场")
    set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from farm where usid="&usid,connnong,1,1
  Response.Write "确定删除ID:"&rs("usid")&"昵称:("
  response.write unames(rs("usid"))
   Response.Write ")的农场<br/>"
  rs.close
set rs=nothing
Response.Write "<br/><a href=""?tp=2&amp;usid="&usid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">是</a>|<a href=""nclb.asp?sid="&sid&"&amp;saytk="&saytk&""">否</a><br/>"
end if
Response.Write "<a href=""nclb.asp?sid="&sid&"&amp;saytk="&saytk&""">返回农场列表</a>"
%>
<!--#include file="fanf.asp"-->
<%call head1()%>