docs_del.asp

=== ==ASP销售管理系统

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 1002200	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Document_ID = request("Document_ID")
if not IsNot(Document_ID,"n") then
	response.write "文档编号丢失"
	response.end
end if

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "sp_Document_Del " & Document_ID
'response.write sql
set rs = conn.execute(sql)
ext = rs("Document_Type")
conn.close
set conn = nothing

on error resume next
'删除文件
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.MapPath("../upload_documents/attch_" & Document_ID & "." & ext)
'response.write filespec
fso.DeleteFile(filespec)
set fso = nothing

'操作日志
Rec_Content = "删除客户文档"
Command_Line = sql
call Op_Rec(Rec_Content,Command_Line)
%>
成功删除客户文档！
<script language="JavaScript" type="text/javascript">
	parent.main.location.reload();
</script>