toolbar.asp

功能齐全的oa系统

<!-- #include virtual="include/DataEnvi.asp" -->
<%
Dim ObjDB,ObjRS
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)

Sub FindParentName(ParentID)
	Dim ObjRS,StrSQL,IntParentID
	If ParentID<>0 Then
		StrSQL = "Select ParentID,DepName From t_OA_SYS_Department 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)


Title		= "部门结构"'：<span class=hand onclick=" & Chr(34) & "parent.location='index.asp'" & chr(34) & "></span>/" & StrDepList
If IntParentID <> 0 Then
	List		= "1011101"
Else
	List		= "101110"
End If
Parameter	= "ParentID=" & IntParentID
BaseDir		= "OA/SYS/Department/"



%>

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


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