
<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%call ling()
Call Head
call saycardd("图片删除结果")
dim rs,sql,id,idd
   lid=int(request.QueryString("lid"))
   id=int(request.QueryString("id"))
   idd=request.querystring("idd")
   set rs=server.CreateObject ("ADODB.Recordset") 
rs.open "Select * from wjfile where id="&id ,conn,2,3  
If Not rs.eof	Then
rs.delete  
rs.update
rs.close
set rs=nothing

   set rs=server.CreateObject ("ADODB.Recordset") 
rs.open "Select * from uppic where lid="&id ,conn,2,3  
If Not rs.eof Then
Do until RS.Eof
if rs("picurl")<>"" then
Set fso = server.CreateObject("Scripting.FileSystemObject")
	IF (fso.FileExists(Server.MapPath(replace(rs("picurl"),"http://"&request.ServerVariables("Server_NAME")&"","")))) Then
	Set delfile = fso.GetFile(Server.MapPath(replace(rs("picurl"),"http://"&request.ServerVariables("Server_NAME")&"","")))
	delfile.Delete
	set delfile=nothing
	end if
set fso=nothing
	end if
rs.delete
rs.update  
rs.movenext
loop
end if
rs.close
set rs=nothing

Response.Write "图片删除成功!" 
else
Response.Write "图片删除失败!可能已删除或者图片不存在" 
conn.close
set conn=nothing
end if
%>
<br/>----------<br/>
<a href="piclist.asp?sid=<%=sid%>&amp;lid=<%=lid%>&amp;saytk=<%=saytk%>">[图片列表]</a><br/>
<a href='picdl.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>[图片类别]</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>
<%response.write""
call head3()%>