<%
function geterror(info,location)
response.write "<script >alert('"&info&"');window.location="""&location&"""</script>"
response.end
end function

dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
on error resume next
fs.deletefolder Server.MapPath("install"),true  
if err.number<>0 then
	Set fs = Nothing
	geterror "删除失败！请您在服务器端手动删除【install】文件夹及下面的所有文件！"&err.description,""
else
	Set fs = Nothing
	geterror "删除成功！点击确定查看系统首页！","index.asp"
end if
%>