<%On Error Resume Next%>
<!--#include file="conn.asp"-->
<!--#include file="chk_logs.asp"-->
<%
    id=replace(request("id"),"'","")
    set rs=server.createobject("adodb.recordset")
     rs.open "select * from tp where id="&id&"",conn,1,3
	 glid=rs("glid")
	 xtp=rs("xtp")
 if trim(xtp)<>"" then
   mappath=server.mappath("../")+"\v8\"+xtp
   mappath=replace(mappath,"/","\")
   'response.Write mappath
  'response.end
   set fso=createobject("scripting.filesystemobject333")
   if fso.fileexists(mappath) then
   set pohot=fso.getfile(mappath)
   pohot.delete
   set pohot=nothing
   else
   response.write "文件不存在！请重新添加！"
   end if
   set fso=nothing
end if
	  rs.delete
     rs.update
rs.close
set rs=nothing
%>
<script>
	alert("信息删除成功！")
	window.location.href="tp.asp?id=<%=glid%>";
</script>
