del.asp

一个综合类整站

<!--#include file="conn.asp"-->
<%if session("china_cityadmin")="" then
response.redirect "login.asp"
end if

dim theid,thdel
theid=request("adid")
thedel=request("del")

if theid="" or thedel="" then
response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
response.end
end if


if thedel="data" then
sql="select * from china_data where adid in("&theid&")"
 set rs=server.createObject("ADODB.recordset")
 rs.open sql,conn,1,1
 Set fdel = CreateObject("Scripting.FileSystemObject")	
do while not rs.eof
if rs("pic")<>"" and lcase(left(rs("pic"),7))<>"http://" then
'''''''''''删除图片开始''''''''''''''''
              tempImageDir = Server.MapPath("../adpic/"&rs("pic")&"")
	             fdel.DeleteFile(tempImageDir)
'''''''''''删除图片结束'''''''''''''''
end if
rs.movenext
loop
set fdel=nothing
rs.close
set rs=nothing
sql="delete from china_data where adid in("&theid&")"
conn.execute(sql) 

sql="delete from china_message where adid in("&theid&")"
conn.execute(sql)
'''''''''''删除html开始''''''''''''''''
Set fdel = CreateObject("Scripting.FileSystemObject")	
for i=1 to request("adid").count
id=request("adid")(i) 
              tempImageDir = Server.MapPath("../html/"&id&".htm")
	             fdel.DeleteFile(tempImageDir)
        next
       set fdel=nothing
'''''''''''删除html结束'''''''''''''''
end if

if thedel="message" then
sql="delete from china_message where id in("&theid&")"
conn.execute(sql) 
end if

if thedel="pass" then
conn.execute("update china_data set mark='yes' where adid in("&theid&")") 
end if

conn.close   
set conn=nothing                                
response.redirect request.ServerVariables("HTTP_REFERER")
%>