<%On Error Resume Next%>
<!--#include file="conn.asp"-->
<!--#include file="chk_logs.asp"-->
<%
lb=trim(request("lb"))
id=trim(request("id"))
page=trim(request("page"))
set rs=server.createobject("adodb.recordset")
rs.open "select * from xinwen where id="&id&"",conn,1,3
xtp=rs("xtp")
 if trim(xtp)<>"" then
   mappath=server.mappath("../")+"\web\"+xtp
   mappath=replace(mappath,"/","\")
'response.Write mappath
'response.end
   set fso=createobject("scripting.filesystemobject")
   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
response.Redirect "xinwen.asp?lb="&lb&"&page="&page
%>

