dir_del.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 46 行

<%
'功能：编辑档案库信息
'参数：request.form("addedit_subed")="true"#表单提交;
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
sjflh=Request.Form("sjflh")
del_sign_fl=Request.Form("del_sign_fl")
del_sign_da=Request.Form("del_sign_da")

'------------------------------------------------删除分类及文档
oConn.BeginTrans  '开始事务
	'删除分类及分类下子分类和文档
	for each i in Request.Form("del_sign_fl")
		'分类下的文档文件
		sql="delete from tbioaDocument_File_Dep where left(flh,"&len(i)&")='"&i&"' and DEPID="&Session("DepID")
		oConn.execute(sql)
		'分类下的子分类
		sql="delete from tbioaDocument_Sort_Dep where left(flh,"&len(i)&")='"&i&"' and DEPID="&Session("DepID")
		oConn.execute(sql)
	next
	
	'删除文档
	for each j in Request.Form("del_sign_da")
		sql="delete from tbioaDocument_File_Dep where ID="&j
		oConn.execute(sql)
	next
oConn.CommitTrans '事务结束
oConn.close
set oConn=nothing
%>

<script language="javascript">
    <%for each i in request.form("del_sign_fl")%>
	if (parent.left) parent.left.removeNode(parent.left.foldersTree,"<%=i%>")
    <%next%>
	history.go(-1);
</script>