dele.asp

OFFICE办公自动化

<%
'==============================================================
'版本: 1.2.0 -- 2004-10-12
'程序版权：(c) 2004 by 展亮
'说明：本代码为自由代码，用户可以自由使用，但请保留作者文件头部说明
'　　　在使用过程中如出现什么问题请及时与作者联系。
'　　　电子邮件：[e-mail] QQ:2343397
'=============================================================
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'------------------------------------------------接收参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
id=request("id") : if id="" then id=0 '类别ID
'------------------------------------------------

'------------------------------------------------删除文档
'删除上传的文件
savepathfilename=oConn.Execute("select FilePath from tbioaDocument_File1 where id="&id)(0)
response.write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link rel='stylesheet' href='../css/main.css' type='text/css'><b>你上传的以下文件已被系统自动删除：</b><br><br>"
response.write "“"&savepathfilename&"”　-> 已删除！<br>"
call DeleteOneFile(savepathfilename)

'删除文档
sql="delete from tbioaDocument_File1 where id="&id
oConn.Execute sql
response.write "<script>alert('"&sortname&"文档删除成功！');history.back()</script>"
response.end
%>