toolbar.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 43 行

<!-- #include virtual="SubRoles/SubRoleRight.asp" -->

<!-- #include virtual="Include/DataEnvi.asp" -->

<%
Dim Title,List,Parameter,IntParentID,BaseDir
Dim C,StrDepList
Dim IntMyParentID

IntParentID =  Request.QueryString("ParentID")
If IntParentID = "" Then IntParentID = 0

Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)



Title		= "岗位信息列表"
List		= "1110101"
Parameter	= "ParentID=" & IntParentID
BaseDir		= "Hrms/DepInfo/Account/"




%>

<script>
function add7(){
addMenuItem(intCount, "do7();", "回部门结构", "parent1.gif", "parent.gif", "<br>回部门");
}


function do7(){
	Waiting()
	parent.location = "../index.asp?ParentID=<%=IntParentID%>"
	NowLocation  = "Parent"
}
</script>
<!-- #include virtual="Templet/Toolbar.asp" -->