getsubdep.asp

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

<%
	Function GetSubDep(ObjDB,DepID)
		Dim IntDepID
		Dim ObjRS,StrSQL
		Dim SubDep
		
		IntDepID = DepID
		SubDep = ""
		
		StrSQL = "Select ID from t_OA_SYS_Department where ParentID = " & DepID
		Set ObjRS = ObjDB.execute (StrSQL)
		While Not ObjRS.eof
			SubDep = SubDep & ObjRS("ID")
			ObjRS.movenext
		Wend
		
		ObjRS.close
		Set ObjRS = Nothing
		
		GetSubDep = SubDep
	
	End Function
%>