<!--#include file="conn.asp"-->
<%
dim Pname,action
Pame=Request.Form("picname")
action=Request.Form("action")

On Error Resume Next
	set fso = Server.CreateObject("Scripting.FileSystemObject")
	fso.DeleteFile(Server.MapPath(Pame))
	fso.DeleteFile(Server.MapPath(Splitm_scj(Pame,".")))
	fso.DeleteFile(Server.MapPath(Split_scj(Pame,".")))
	if err.Number<>0 then
	Response.Write "删除" & Pame & "失败！错误信息："&err.description
	else
	Response.Write("删除" & Pame & "成功")
	end if
	Set fso = nothing
%>