<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%call Head()
dim action,name,id
id=trim(request.querystring("id"))
action=trim(request.querystring("action"))
if action="ok" then
if id="" or Isnumeric(id)=False then
  Call Error("出错了","ID无效！")
  end if
dim uid,tztitle
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zonerj] where id="&id,conn,1,1

if rs("dt")=1 then
  Call Error("出错了","先去顶才能删除日志！")
  end if
uid=rs("uid")
tztitle=rs("tit")
rs.close
set rs=nothing
call zonecardy("删除日志","blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
conn.Execute("update [zonerj] set [rc]=2 Where [id]="&id&"")
conn.Execute("update [zonerjpl] set [rc]=2 Where [zonezid]="&id&"")
conn.Execute("update [zone] set [mysellnum] = mysellnum-1 Where [zoneid]="&uid&"")
Response.Write "成功删除！正在返回日志列表.."&_
               "<br/><a href='blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>日志列表</a><br/>"
call zoneLast()
call zonexml()
else
call zonecard("删除日志","left")
 Response.Write "确认删除该日志？<br/>"
 Response.Write "<a href='blogrj_del.asp?Action=ok&amp;id="&id&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>是的</a><br/>"
 Response.Write "<a href='blog_view.asp?id="&id&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>取消</a><br/>"

end if
conn.close
set conn=nothing
call zoneLast()
Call Headsay()
%>                         