file_del.asp

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

<%
'功能：删除文件
%>

<!--#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
pid=request("pid") '文件ID
parentid=request("parentid")
'------------------------------------------------
'------------------------------------------------删除记录
Set Rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from  tbioaMail_Accessory where id="&pid
Rs.open sql,oconn,3,3
Do while not rs.eof
	if rs("filename")<>"" then
		call DelFile("./files/"&rs("parentid")&Rs("filename"))
	end if
	Rs.delete
	Rs.movenext
loop
set Rs=nothing
response.redirect "mail_edit.asp?id="&parentid
'------------------------------------------------
%>

<%'释放对象变量
oConn.close
%>