doc_type_new_exe.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 29 行

<!--#include file="../config2.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 6000500	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Group_Name = request("Group_Name")
if not IsNot(Group_Name,"s") then
	response.write "文档类型名称填写不正确"
	response.end
end if

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "insert into Documents_Group(Group_Name) values('" & Group_Name & "')"
conn.execute(sql)
conn.close
set conn = nothing
%>
成功添加文档类型！
<script language="JavaScript" type="text/javascript">
	parent.main.location.reload();
</script>