<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if

dim f_id

f_id=request.QueryString("tbid")
if f_id="" or not isnumeric(f_id) then
  response.Write "操作错误!"
  response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from tbjiaoyou where id="& f_id
rs.open sql,conn,1,3
if rs.eof and rs.bof then
  response.Write "没有找到您要删除的信息！"
  response.end
end if
if rs("userid")<>userid then
  response.Write "此信息不是由你发布，你没有删除的权力！"
  response.end
end if
rs.delete
rs.update
rs.close
set rs=nothing


conn.close
set conn=nothing
response.Redirect "mytbjy.asp"
%>