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


call cardz("删除说说","zoness.asp?sid="&sid&"&amp;saytk="&saytk&"")

conn.Execute"delete from zoness Where id="&id
conn.Execute"delete from zonesspl Where zonezid="&id


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

else
call saycard("删除日志","left")
 Response.Write "确认删除该说说？<br/>"
 Response.Write "<a href='blogss_del.asp?Action=ok&amp;id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>是的</a><br/>"
 Response.Write "<a href='zoness.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>取消</a><br/>"

end if
conn.close
set conn=Nothing
response.write "<br/><a href='zoness.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回所有说说</a>"
%><!--#include file="fanhui.asp"--><%
Call Headsay()
%>                         