<%
 if request("id")<>"" then 
id=request("id")
'response.write id
 Dim   objFSO12         '声明一个名称为   objFSO   的变量以存放对象实例   
      Set   objFSO12   =   Server.CreateObject("Scripting.FileSystemObject")   
        If   objFSO12.FileExists(Server.MapPath("\SQL Server\"&id))   Then   
            objFSO12.DeleteFile   Server.MapPath("\SQL Server\"&id),True   
            'Response.Write   "已经成功地对文件"&Server.MapPath("\SQL Server\"&id)&"进行了删除" 
			response.Write("<script >alert('已经成功删除文件');window.location.href='WEBSEN_LJSQL.asp';</script>")  
        Else   
           ' Response.Write   Server.MapPath("\SQL Server\"&id)&"不存在，无法进行删除"   
			response.Write("<script >alert('文件不存在！');window.location.href='WEBSEN_LJSQL.asp';</script>")
        End   If   
      Set   objFSO12   =   Nothing 

'---------------------------------------------------------------'
else
dd=request("dd")
	   Dim   objFSO123         '声明一个名称为   objFSO   的变量以存放对象实例   
      Set   objFSO123   =   Server.CreateObject("Scripting.FileSystemObject")   
        If   objFSO123.FileExists(Server.MapPath("\SQL Server\"&dd))   Then   
            objFSO123.DeleteFile   Server.MapPath("\SQL Server\"&dd),True   
            'Response.Write   "已经成功地对文件"&Server.MapPath("\SQL Server\"&id)&"进行了删除" 
			response.Write("<script >alert('已经成功删除文件');window.location.href='../websen_datasql.asp?id=2';</script>")  
        Else   
           ' Response.Write   Server.MapPath("\SQL Server\"&id)&"不存在，无法进行删除"   
			response.Write("<script >alert('文件不存在！');window.location.href='../websen_datasql.asp?id=2';</script>")
        End   If   
      Set   objFSO123   =   Nothing 
	  end if
	  
%>
