del_filmpic.asp

来自「在线点播系统」· ASP 代码 · 共 22 行

<!--#include file="chklogin.asp"-->
<%

call myobj.chkrq()

set objFile=server.CreateObject ("Scripting.FileSystemObject")
pic_name=server.MapPath ("../filmpic/"&request.QueryString("pic_name"))
if objfile.FileExists(pic_name) then '如果原文件存在
	objfile.DeleteFile (pic_name) '执行删除
	if objfile.FileExists(pic_name) then '删除后再次查询如果存在
		objfile.close
		set objfile=nothing
		response.Write "图片文件删除失败，请手动删除文件："&pic_name
		response.end
	else
		objfile.close
		set objfile=nothing
		response.write"<script language=javascript>alert('图片文件删除成功，请重新上传新的图片文件');window.close();</Script>"
		response.end
	end if
end if
%>