📄 node_oe.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'************************************************************************************************
' 文件名: node_oe.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 　创建人 : 周秋舫
' 　日　期 : 2002-05-13
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 编辑部门、岗位信息
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->

<!-- #include file="../common/commonpage.inc" -->
<!-- #include file="node_oe.inc" -->


<%
'CheckSecurity()
'********************************************************************************************************
' 服务器端代码
dim sSQL, crs, rs
dim sNodeName, sNodeFunc, sPos, sParentNodeId
dim pNodeId			: pNodeId = GetParam("node_id")
dim pNodeLevel		: pNodeLevel = GetParam("node_level")
sParentNodeId = GetParam("parent_node_id")

if CStr(pNodeLevel) = "2" then
		pNodeLevel = 2
elseif CStr(pNodeLevel) = "3" then
		pNodeLevel = 3
else
	Response.Clear
	Server.Transfer("../common/error.asp")
	Response.end
end if


if Not IsEmpty(pNodeId) then
	'' 存在pNodeId参数，则是更新操作，这里先获取数据
	sSQL = "select * from t_node where node_id = " & pNodeId & " and node_level = " & pNodeLevel & " and co_id = " & GetCoId
	set crs = New CRecordset
	set rs = crs.Open(dbLocal, sSQL)
	if rs.EOF then
		crs.Close()
		Response.Clear
		Server.Transfer("../common/error.asp")
		Response.end
	end if
	sNodeName = crs.GetValue("node_name")
	sNodeFunc = crs.GetValue("node_func")
	sPos = crs.GetValue("pos")
	sParentNodeId = crs.GetValue("parent_node_id")
	crs.Close()
end if

'' 如果是提交操作，则进行更新或删除或新增操作
if UCase(Request.ServerVariables("REQUEST_METHOD") = "POST") then
	sNodeName = GetParam("node_name")
	sNodeFunc = GetParam("node_func")
	sParentNodeId = GetParam("parent_node_id")
	sPos	= GetParam("pos")
	DoAction()
end if
%>

<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../common/common.css" type="text/css">
<style type="text/css">
input			{color:blue;border-width:1}
td				{overflow:hidden}
textarea{color:blue;scrollbar-face-color:#FFFFFF;scrollbar-shadow-color:#FFFFFF;scrollbar-highlight-color:#FFFFFF;scrollbar-3dlight-color:white; scrollbar-darkshadow-color:white; scrollbar-track-color:#FFFFFF; scrollbar-arrow-color:green}

</style>
<script language="vbScript" src="node_oe.vbs"></script>
</head>

<body>

<form name="frmNode" method=post action="node_oe.asp">
<input type="hidden" name="node_id" value="<%=pNodeId%>">
<input type="hidden" name="node_level" value="<%=pNodeLevel%>">
<input type="hidden" name="FormAction">

<%=TableFormNode%>

</form>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -