dgdel.asp

asp构建网站bbs.采用B/S架构

<!--#include file="conn.asp"-->
<!--#include file="dgconn.asp"-->
<%
dim id,candeletedg
candeletedg=false 
membername=request.cookies(cn)("lgname")
if membername=""then
founderr=true
error2("您还没有登陆论坛，请登陆后再来")
end if 
if request("id")="" or (not isnumeric(request("id"))) then
 founderr=true
 error("参数非法，请确认您是从有效连接进入")
else
 id=clng(request("id"))
end if
'==========判断是否可以删除点歌 开始
if not founderr then
 set rs=connDG.execute("select sender,incept from [media] where id="&id&"")
 if rs.bof and rs.eof then
 founderr=true
  error2("参数非法，请确认您是从有效连接进入") 
 elseif rs(0)=membername or rs(1)=membername then
  candeletedg=true
 else
     founderr=true 
  error2("您没有删除此点歌的权限")    
 end if 
end if  
'==========判断是否可以删除点歌 结束 
if founderr or (not candeletedg) then
error("发生常规错误")
else 
 sql="delete * from [media] where id="&id&""
 connDG.Execute(sql)
 response.redirect Request.ServerVariables("HTTP_REFERER")
end if
%>
<%sub error2(message)
%><script>alert('<%=message%>');history.back();</script><script>window.close();</script>
<%response.end
end sub
%>