uploadfile_del.asp

来自「树型ASP论坛下载」· ASP 代码 · 共 21 行

<!--#INCLUDE file="opendb.asp" -->
<!--#INCLUDE file="check.asp" -->
<%
del_id=Request("delid")
strSql="select * from agent_files where id="&del_id&""
set del_rs=conn.Execute (strSql)
if not del_rs.eof then
  whichfile=server.mappath("../download/"&del_rs("filename"))
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set thisfile = fs.GetFile(whichfile)
  thisfile.Delete True
end if
del_rs.close
set del_rs=nothing
strSql="DELETE FROM agent_files where id="&del_id
conn.Execute (strSql)
conn.Close
set conn = nothing
Response.Redirect "uploadfile_gl.asp"
%>