deltb.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<!--#include file="../conn.asp" -->
<!--#include file="../log_lib.asp" -->
<%
if not instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8 then
message "DLOG错误：提交的数据来自网站外部"
response.end
end if
checkuser()
id=replace(request("id"),"'","''")
if not isad=-1  then
	MESSAGE "您没编辑此日志的权限，请返回，或向管理员申请权限"
    response.end
end if
SQL = "Delete from trackback where id = " & id
conn.Execute(sql)
conn.close
set conn=nothing
Response.Redirect("tbmana.asp")
%>