new_exe.asp

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

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 4000200	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Customer_ID = request("Customer_ID")
Project_ID = request("Project_ID")
Document_Title = request("Document_Title")
Document_Content = request("Document_Content")
Group_ID = request("Group_ID")
'规范化字符串
Document_Title = FormatString(Document_Title)
Document_Content = FormatString(Document_Content)

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "insert into Documents(Group_ID,Document_Title,Document_Content"
if IsNot(Customer_ID,"n") then sql = sql & ",Customer_ID"
if IsNot(Project_ID,"n") then sql = sql & ",Project_ID"
sql = sql & ",Employee_ID) values(" & Group_ID & ",'" & Document_Title & "','" & Document_Content & "'"
if IsNot(Customer_ID,"n") then sql = sql & "," & Customer_ID
if IsNot(Project_ID,"n") then sql = sql & "," & Project_ID
sql = sql & "," & Session("Employee_ID") & ")"
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing

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