toolbar.asp

功能齐全的oa系统

<%
Dim ObjDBH,ObjRSH,ObjRSP
Dim Title,List,Parameter,IntParentID,BaseDir
Dim C,StrDepList,StrIp,StrName
Dim IntMyParentID
Dim aryReturn,j,lablelogic
lablelogic=true
Title		= "部门基本信息"'：<span class=hand onclick=" & Chr(34) & "parent.location='index.asp'" & chr(34) & "></span>/" & StrDepList
%>
<!-- #include virtual="SubRoles/SubRoleRight.asp" -->

<%

IntParentID =  Request.QueryString("ParentID")
 

 if cstr(Mid(ToolBarList,3,1))="0" and  cstr(Mid(ToolBarList,4,1))="0" and  cstr(Mid(ToolBarList,5,1))="0" then

 lablelogic=false
  end if
 
 
If IntParentID = "" Then IntParentID = 0

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

Set ObjRSP = C.View("Select * From T_Hrms_Dep Where ID =" & IntParentID)


Sub FindParentName(ParentID)
	Dim ObjRS,StrSQL,IntParentID
	If ParentID<>0 Then
		StrSQL = "Select ParentID,DepName From T_Hrms_Dep Where ID=" & ParentID
		Set ObjRS = C.View(StrSQL)
		StrDepList = "<span class=hand onclick=" & Chr(34) & "parent.location='index.asp?parentID=" & ParentID & "'" & Chr(34) & ">" & ObjRS("DepName") & "</span>/" & StrDepList
		If IntMyParentID="" Then IntMyParentID = ObjRS("ParentID")
		FindParentName(ObjRS("ParentID"))
	End If
End Sub

Call FindParentName(IntParentID)

Set ObjDBH = Server.CreateObject("Adodb.Connection")
OpenDBH ObjDBH
StrSQL = "Select Count(*) From T_Hrms_Dep Where ParentID = " & Cint(IntParentID)
'response.write strsql
'response.End()
Set ObjRSH = ObjDBH.Execute(StrSQL)



If IntParentID <> 0 Then
	if ObjRSH(0) = 0 and  lablelogic=true and  ObjRSP("ParentID")<>0 then
	
	  List		= ToolBarList & "11"
	  StrName = "岗位设置"
	  StrIp   = "account/index.asp?ParentID=" & IntParentID
	else
	  List		= ToolBarList & "1"
	  StrName = "回上级"
	  StrIp   = "index.asp?ParentID=" & IntMyParentID
	end if
	  
Else
	List		= ToolBarList
End If
Parameter	= "ParentID=" & IntParentID
BaseDir		= "Hrms/DepInfo/"
'Response.Write StrIp


%>

<script>

function add8(){
addMenuItem(intCount, "do8();", "回上级", "parent1.gif", "parent.gif", "<br>回上级");
}


function do8(){
	Waiting()
	parent.location = "index.asp?ParentID=<%=IntMyParentID%>"
	NowLocation  = "Parent"
}

function add7(){
addMenuItem(intCount, "do7();", "<%=StrName%>", "parent1.gif", "parent.gif", "<br><%=StrName%>");
}


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