📄 node_op.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'************************************************************************************************
' 文件名: node_o.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_o.inc" -->


<%
'********************************************************************************************************
' 服务器端代码
dim pNodeId	: pNodeId = GetParam("node_id")

Function NodeDetail()
	dim sDesp, sFunc
	dim sNodeId, sNodeName, sNodeFunc, sNodeLevel
	dim sParentNodeId, sParentNodeName, sPos
	dim sSQL, crs, rs

	sNodeId = GetParam("node_id")
	if IsEmpty(sNodeId) then sNodeId = 12
	if IsEmpty(sNodeId) then
		sDesp = "岗位名称"
		sFunc = "岗位职责"
	else
		sSQL = "select parent_node_id, node_id, node_name, node_level, node_func, position_desc from t_node t1 left join t_position t2 on t1.pos = t2.position_id where node_id = " & ToSQL(sNodeId, "Number")
		set crs = New CRecordset
		set rs = crs.Open(dbLocal, sSQL)
		if rs.EOF then
			crs.Close()
			Response.Clear
			Response.Redirect("../common/error.asp")
			Response.end
		else
			sNodeName = crs.GetValue("node_name")
			sNodeFunc = crs.GetValue("node_func")
			sNodeLevel = crs.GetValue("node_level")
			sParentNodeId = crs.GetValue("parent_node_id")
			sPos = crs.GetValue("position_desc")
			crs.Close()
		end if

		if sNodeLevel = 2 then
			sDesp = "部门名称"
			sFunc = "部门职能"
		else
			sNodeLevel = 3
			sDesp = "岗位名称"
			sFunc = "岗位职责"
			sParentNodeName = DLookUp(dbLocal, "t_node", "node_name", "node_id = " & sParentNodeId)
			sNodeName = sParentNodeName & " -> " & sNodeName & "	<span style=""color:gray"">（岗位对应的职务：" & sPos & "）</span>"
		end if
	end if

	NodeDetail = "<!--table width=300 height=310 border=1 cellspacing=0 cellpadding=2>" & vbLF & _
	"<tr height=20><td width=""*"" valign=top-->" & vbLF & _
			"	<table cellspacing=1 cellpadding=3 bgcolor=silver width=""250"" border=1 align=center>" & vbLF & _
			"		<tr bgcolor=white><td width=""*"" style=""color:blue""> " & sNodeName & " </td></tr>" & vbLF & _
			"		<tr bgcolor=white height=""*""><td><textarea readonly cols=69 rows=17 style=""border:0 solid black"" scroll=no>" & sFunc & "：" & sNodeFunc & "</textarea></td></tr>" & vbLF & _
			"	</table>" & vbLF & _
	"<!--/td></tr></table-->"
End Function
%>

<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">
textarea{scrollbar-face-color:#FFFFFF;scrollbar-shadow-color:#FFFFFF;scrollbar-highlight-color:#FFFFFF;scrollbar-3dlight-color:red; scrollbar-darkshadow-color:white; scrollbar-track-color:#FFFFFF; scrollbar-arrow-color:green}
</style>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../images/bg/bg0.jpg">
<%=NodeDetail%>
</body>
</html>
⌨️ 快捷键说明

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