dgdel.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 48 行

<!--#include file="inc/pstart.asp"-->
<!--#include file="inc/bbsinfo.asp"-->
<%
dim candeletedg,founduser,sql
candeletedg=false	
if UserLogined<>True then
founduser=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 founduser then
	set rs=server.createobject("adodb.recordset")
	    sql="select sender,incept from [media] where id="&id&""
        rs.open sql,conn,1
	if  rs.eof then
	founduser=true
		error2("参数非法，请确认您是从有效连接进入")	
	elseif rs(0)=ckuname or rs(1)=ckuname or checkadmin(ckuname)>=3 then
		candeletedg=true
	else
	    founduser=true	
		error2("您没有删除此点歌的权限")				
	end if	
	rs.close 
	set rs=nothing
end if		
'==========判断是否可以删除点歌 结束	
if founduser or not candeletedg then
error2("发生常规错误")
else	
	sql="delete * from [media] where id="&id&""
	conn.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
%>