<!-- #include file="conn.asp" -->
<%call Head()
dim action,name,id
id=request("id")
uid=request("uid")
action=trim(request.querystring("action"))
if action="ok" then
if id="" or Isnumeric(id)=False then
  Call Error("出错了","ID无效！")
  end if


call cardz("删除博客","user.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"")

conn.Execute"delete from zone Where zoneid="&uid
conn.Execute"delete from zonerj Where uid="&uid
conn.Execute"delete from zonerjpl Where userid="&uid
conn.Execute"delete from zoness Where uid="&uid
conn.Execute"delete from zonesspl Where userid="&uid
conn.Execute"delete from zonely Where usid="&uid
conn.Execute"delete from zonely Where usid="&uid
conn.Execute"delete from frzonedt Where fgid="&uid


Response.Write "成功删除！正在返回博客列表.."

else
call saycard("删除博客","left")
 Response.Write "确认删除该博客？<br/>"
 Response.Write "<a href='blog_del.asp?Action=ok&amp;id="&id&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>是的</a><br/>"
 Response.Write "<a href='user.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>取消</a><br/>"

end if
conn.close
set conn=Nothing
response.write "<br/><a href='user.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>返回用户博客</a>"
response.write "<br/><a href='blog.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回博客列表</a>"
%><!--#include file="fanhui.asp"--><%
Call Headsay()
%>                         